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Les noms, prénoms et adresses de nos abonnés sont com 
muniqués à nos services internes du groupe, ainsi qu'aux 
organismes liés contractuellement pour le routage. Les 
informations peuvent faire l'objet d'un droit d'accès et de 
rectification dans le cadre légal. 


Les articles et programmes que nous publions dans ce 
numéro bénéficient, pour une grande part, du droit 
d'auteur. De cæ fait, ils ne peuvent être imités, contrefaits, 
copiés par quelque procédé que ce soft, même 
partiellement sans l'autorisation écrite de la Société 
SORACOM'et de l'auteur concerné. Les opinions expri- 
mées n'engagent que la responsabilité de leurs auteurs 
Les différents montages présentés ne peuvent être 
réalisés que dans un but privé ou scientifique mais non 
commercial. Ces réserves s'appliquent également aux 
lhaiciels publiés dans la revue. 


EDITORIAL 


est la fin de l'été, et 

pour beaucoup d'entre 

nous les vacances ne 
sont déjà qu'un lointain souve- 
nir.. Allez, trève de nostalgie, un 
peu de courage. La rentrée s'an- 
nonce riche en événements pour 
les amstradistes : le Festival de la 
Micro, l'arrivée en France du 
PC1640 ECD et de l'imprimante 
rapide DMP 3160, notre nouveau 
serveur MHZ, entiérement rema- 
nié, qu'il vous faudra découvrir 
d'urgence si ce n'est déjà fait et 
un CPC toujours plus varié. 
Dans ce numéro, nous vous proposons de réaliser une interface 
RS232 de qualité professionnelle, un programme de conjugaison qui 
n'en apprendra pas qu'aux tout-petits et la première partie d'un su- 
perbe jeu au cours duquel vous devrez maîtriser une centrale nucléaire 
en folie. Tchernobyl et Three Mile Island n'étaient que des incidents à 
côté de ce qui vous attend ! Quant aux passionnés de programmation, 
ils apprendront à translater du code machine et à décortiquer les fi- 
chiers ASCII sous la conduite du Professeur Archambault. Et toujours 
bien entendu, les séries d'initiation, les bancs d'essais et les dernières 
nouveautés. 


Nous vous remercions de nous faire confiance en vous abonnant. 
Afin d'améliorer le service et de mieux le contrôler, nous avons décidé 
de prendre directement à notre charge le routage. 

Cela s'est fait sentir dès le dernier envoi ! 


MAIS ATTENTION 


Il arrive que des abonnés ne reçoivent jamais leur revue. Les causes principales 
des retours sont les suivantes : 
NPAI n'habite pas à l'adresse indiquée 

nom ne figurant pas sur la boîte à lettres 

adresse érronée 


Si vous changez d'adresse, signalez-la, vérifiez votre boîte à lettres et surtout 
pensez à nous: écrivez lisiblement sur vos bulletins d'abonnements et même 
vos commandes. 

Avec nos remerciements pour ce petit effort ! 


Bien débuter avec le CPC 6128 


Vous qui venez d'acquérir un CPC 6128, réussissez à coup sûr vos 
débuts. Apprenez pas à pas les notions de programmation du Basic, 
de graphisme et de son. Découvrez les possibilités de votre lecteur 
de disquette (formatage, fichiers et fichiers ASCII, protection des 
programmes, sauvegarde, fusion, suppression de fichiers...). 

(Réf. ML 146) 99 FF. 200 p. 


E PLEIN DE TONUS 
POUR VOTRE CPC. 


Le livre du CP/M 


Débutant ou utilisateur confirmé de CPC 


464, 6128, exploitez à fond les capacités de 
votre machine à travers des informations pré- 
cises, des explications et exemples clairs, le 
langage machine et le Basic. Découvrez tout sur 
ie CP/M et votre lecteur de disquette pour pro- 


grammer en vrai “pro”. 


Pour tous ceux qui consi- 
dèrent que le Basic n’est ni 
assez puissant ni assez 
rapide. Découvrez les 
bases de la programmation 
en langage machine, au 
mode de travail du proces- 
seur Z 80 en passant par 
une description précise de 
ses instructions ainsi que 
l’utilisation des routines 
systèmes. Le langage 
machine n'aura plus de 
secret pour vous grâce aux 
nombreux exemples et programmes complets (assembleur, 
désassembleur et moniteur). (Réf. ML 123) 129 FF. 

(Réf. ML 223) 249 FF avec la disquette. 250 p. 
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Le grand livre du Basic sur CPC 6128 


Exploitez à fond toutes les capacités de l'excellent Basic Locomotive 
et maîtrisez les bases de la programmation et ses domaines profes- 
sionnels {tris, fenêtres, masques, écrans, traitement des erreurs, 
protection contre la copie) et le fonctionnement interne du Basic. 
Découvrez les domaines : , 

“créatifs”: graphismes, sons 

et musique. Gérez le stockage 
des données et le lecteur de 
disquette, son accès direct 
avec l'AMDOS et les interrup- 
tions Bankwrite, Bankfind 

et leurs applications RAMDISK. 
Enfin, des listings d'applica- 
tions comme traitement de 
texte, budget familial. 

(Réf. ML 168) 149 FF. 

(Réf. ML 268) 249 FF avec 

la disquette. 260 p. 


LIVRE DATA BECKER 


Toutes les explications indispensables pour une bonne utilisation 
et compréhension de CP/M sur CPC 464, 664, 6128 et PCW 8256: 
stockage des données, protection contre l'écriture, codification 


ASCII, utilisation des program- 
mes CP/M, les versions CP/M 
2.2 et CP/M plus (3.0)... et la 
structure interne de CP/M pour 
les programmeurs avancés. 
(Réf. ML 128) 149 FF. 220 p:. 


Le livre du lecteur 
de disquette 


Tout sur la programmation et 
la gestion des accès disque 
avec les CPC 464, 664, 6128 
et le FLOPPY DDI-1! Profitez 


ples accompagnant chaque 
chapitre. Disposez des listings 
d'utilitaires ultra-performants 
comme un moniteur disque, 
une gestion de fichiers rela- 
tifs. ainsi que d'un listing du 
DOS commenté, de la descrip- 
tion électronique de l'appareil 
et d'une gestion de fichiers. 
(Réf. ML 127) 149 FF. 

(Réf. ML 227) 269 FF avec 

la disquette. 390 p. 


Les indispensables CPC 


Trucs et astuces pour l’Amstrad CPC 
(Réf. ML 112) 149 FF. 


Programmes Basic pour les CPC 
(Réf. ML 119) 129 FF. 


Graphismes et sons CPC 464 
(Réf. ML 124) 129 FF. 


Des idées pour les CPC 
(Réf. ML 132) 129 FF. 


La bible du CPC 664/6128 
(Réf. ML 146) 199 FF. 


Le Basic au bout des doigts CPC 
464, 664, 6128 
(Réf. ML 118) 149 FF. 


Communications, modem et 
Minitel sur Amstrad CPC 
(Réf. ML 151) 149 FF. 
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GAME OVER 


IMAGINE 
Arcade 


C'est souvent avec l'énergie du 
désespoir que vous vous battez 
pour ne pas voir apparaître ces 
deux mots fatidiques à l'écran : 
GAME OVER... Dans le cas 
présent, non seulement ils 
constituent le titre du logiciel, 
mais, en plus, vous devez vous 
acharner et recommencer le jeu 
maintes et maintes fois avant de 
progresser de manière honorable ! 
En effet, vous êtes Arkos, vous 
pouvez tirer, avancer, sauter, 
monter les escaliers mais sans 
réflexes et rapidité vous ne pouvez 
rien sur cette redoutable planète 
Hypsis où vous devez évoluer au 
milieu de robots, monstres verts, 
tireurs de laser et bateaux avant 
de vous retrouver coincé devant 
des géants qu'il faut détruire pour 
accéder à la seconde partie du jeu. 
Car il y a aussi la planète 
Sckunn ! Et là, vous vous rendez 
rapidement compte qu'Hypsis était 
finalement ‘’du gâteau”. D'autant 
plus que cette fois, les coups vous 
sont comptés ! Je suppose que 
vous avez déjà compris que GAME 
OVER est absolument dément. de 
la même trempe qu'Army Moves ! 
A l'action rapide qui ne vous laisse 
pas le temps de souffler, il faut 
ajouter un graphisme propre, net 
et sans bavures et où vous vous 
voyez, entre autres, partir en 
étoiles lorsque votre niveau 
d'énergie est trop faible... 


æ <,/ 4 
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INCANTATION 
SOFTHAWK 


Aventure 


Un ilôt breton désertique et 
balayé par les vagues, une nuit 
d'orage, une antique demeure au 
passé mystérieux. Tous les 
éléments sont ici rassemblés pour 
receler une envoûtante énigme qui 
mettra en péril votre santé 
mentale. 

Invité sur l'île de Shar Breiz par le 
célèbre et richissime industriel 
Maxime Minotier pour des besoins 
professionnels, vous serez 
désappointé d'apprendre qu'une 
terrible tempête vous empêche de 
rejoindre le continent. S'engage 
alors une furieuse course contre la 
montre, la folie et la mort. 

De tous temps cet îlot fut porteur 
de mystères. Déjà, il y a 20 ans, 
en mars 1908, Aristide, le frère de 


cours de votre pi-mier repas à la 
table familiale, Aristide reparaît 
soudainement et s'écroule dans la 
salle à manger ; l'esprit dérangé, il 
a tout oublié et physiquement il a 
beaucoup changé. Cependant son 
père, que l'on croyait sénile depuis 
longtemps, l'identifie aussitôt. À 
partir de cet instant, tandis que 
les minutes s'égrennent à la 
pendule de la salle à manger, des 
événements paranormaux se 
succèderont, entraînant une série 
de morts horribles. Mais d'où 
revient donc Aristide et quel est 
ce chien qui mutile atrocement les 
habitants de la maison ? (Ne 
serait-ce pas plutôt un loup- 

garou ?) 

Loin d'être figés, les habitants de 
l'île répondent aux questions 


Le fils des domestiques, 


Leon UADIEU, 
sur l’ ile 
les MINOTIÉR. 


Maxime Minotier, disparut sans 
laisser de traces, pour avoir tenté 
d'éclaircir le secret : horrible 
conséquence de la poursuite des 
recherches de son père dans le 
domaine des sciences occultes. Au 


AU VOUS a amene 


vous conduit chez 


parfois avec quelques mimiques, 
certains même possédent quelques 
secrets qu'il serait bon de leur 
arracher. Ils déambulent de pièce 
en pièce, vaquant à leurs 
occupations respectives. En 
connaissant bien leurs habitudes, 
on saura où les trouver plus 
facilement. 

Dans le plus pur esprit du Mythe 
de Cthulhu, ce logiciel passionnera 
les fans de H.P. Lovecraft et 
ravira les amateurs de jeux 
d'aventures à l'intrigue bien ficelée. 


CONVOY RAIDER 
GREMLIN GRAPHICS 


Arcade/Simulation 


Grâce à ce logiciel, vous êtes 
convié à remplir un rôle très 
gratifiant ; en effet, vous passez 
surveillant, protecteur et défenseur 
du monde dit libre qui, bien 
entendu, se trouve en péril... 

Pour cela, vous patrouillez les mers 
à bord de votre bâtiment hyper- 
équipé en matériel super 
sophistiqué !.. Pour assurer la 
phase de surveillance et celle de 
défense, vous n'avez pas moins de 
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cible et être ensuite capable de 
retourner à votre base en étant 
sain et sauf. Bien entendu, 
pendant votre mission, si vous 
avez des problèmes, il vous reste 
la possibilité de retourner à votre 
base, que ce soit pour faire le 
plein, effectuer des réparations ou 
même renouveler votre armement. 
Avec cette simulation, les non- 
initiés comme les initiés peuvent 
trouver satisfaction puisque 4 
niveaux de difficulté sont 
accessibles allant de la simple 
arcade à l'as du combat aérien. La 
monotonie des missions est 
également évitée puisque vous 
avez le choix entre sept 
destinations différentes. Par 
contre, il faut signaler que 
graphisme et animation sont 
simplement corrects avec un écran 
présentant la position vue du 
cockpit, une carte de la situation, 
un radar électronique et, pour 
terminer, l'état de votre armement 
à bord. 


CHIP 
Arcade 


Dans la série “Héros de tous les 
temps”, la ville toute entière de 
New-York est suspendue à vos 
lèvres ou plutôt à vos bras en 
cette année de grâce 2017... 

En effet, le plus important repaire 
de criminels se trouve au cœur de 
cette ville et ‘’on” vous a chargé 
en haut lieu de faire le ménage 
d'une manière rapide et sans 
bavures. C'est donc ainsi que vous 
vous retrouvez dans la rue, 
parfaitement exposé aux tirs en 


par ne 
Epic CHAHI É 


hip 


rafales. Il vous faut alors faire 
preuve de rapidité pour situer le 
tireur et de dextérité pour 
l'éliminer avant qu'il ne se cache 
pour recommencer son tir quelques 
temps après. 

Suivant votre habileté, vous verrez 
se constituer petit à petit, après 
chaque niveau complété, un puzzle | 
vous présentant fièrement en tant | 
que vainqueur | 

Les amateurs de jeu rapide où il 
faut beaucoup de réflexes seront 
satisfaits. Par contre, il faut quand 
même noter que la précision de tir 
laisse parfois un peu à désirer. 
Côté graphisme, vous pourrez 
constater qu'il est soigné et que le 
scrolling s'avère sans bavures. 


UBI SOFT 
Arcade 


Pas moyen de vivre tranquille 
quand on s'appelle M. Bond 
James. Pourquoi tout le monde en 
veut-il à sa personne ? C'est 
simple : l'agent 007 ne se déplace 
jamais pour rien. S'il est venu à 
Gibraltar, c'est qu'il y a une 
raison. Sans se soucier de savoir 


| 
| 


Lolo  . 


Le 


quelle peut bien être la nouvelle 
mission de Mister Bond, les 
“méchants” vont tenter de 
l'éliminer sans plus attendre. Dès 
son arrivée sur le rocher de 
Gibraltar, sous prétexte de tester 
les défenses britanniques, 007 est 
soumis aux tirs des gardes qui ne 
se comportent pas tous 
amicalement. Une fois la preuve 
faite que la défense était pleine de 
gardes ripoux, la vraie mission de 
l'agent secret débute par l'évasion 
d'un général soviétique désireux de 
passer à l'Ouest. Ce qui bernerait 
un débutant, 007 sait le déjouer et 
ce général n'est peut être pas si 
désireux que cela de changer de 
camp | 

D'autre part, tout le monde semble 
en vouloir à ce général Koskov. En 
effet, 007 s'apercevra qu'un riche 
trafiquant d'armes américain est 
aussi intéressé par son protégé. 
Pour récupérer ce personnage, il 
envoie son homme de main, le 
dangereux Necros. 

Bientôt tout s'accélère, voire 
s'embrouille. À vous de faire jouer 
James Bond en prenant bien soin 
de le préserver en vie d'abord, 
mais aussi de réussir la mission 
que les services secrets 
britanniques lui ont confiée. 
Comme d'habitude, une présence 


: féminine aux côtés de James est 


indispensable et vous ne serez pas 
étonné d'apprendre qu'elle est 
ravissante. Sur le plan technique, 
ce jeu est fort bien réussi, le 
graphisme est soigné. Un jeu avec 


| lequel il doit être possible de bien 


s'amuser (si on passe le premier 
tableau) car contrairement aux 
autres softs censés accompagner 
la sortie d'un film, ce logiciel ne 
semble pas avoir été bäclé. 
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DE LA MICRO 


TOUT LE MONDE Y EST. 
TOUT LE MONDE Y VIENT! 


Du vendredi matin au dimanche soir : le week-end le plus 
long, le plus vivant, le plus fou, de la micro-informatique 
grand public. Les machines, les logiciels, périphériques, les 
livres. et même les consoles de jeux (nouvelle génération !) 
Pour tout voir, tout comparer, choisir, et pourquoi pas, ache- 
ter. Avec, en prime, des animations d'enfer! Entre autres la 
finale des Jeux Micro-Olympiques... 

S Tout le monde expose, tout le monde s'éclate, tout le monde 
vient visiter le FESTIVAL de la MICRO. 


Si 
QE 


trad lave plus blanc ?” 


dans un premier temps, de l'organisation. La nouvelle devise serait-elle : 


PRESSINC. PILOTE À | 


ke _ Chacun sait que le salon Amstrad Expo a été lancé par notre confrère. 

et ce, avec le succès que l’on connaît. D'une manière un peu cavalière, 
Amstrad France a décidé tout simplement de reprendre à son compte l'or- 
ganisation de ce salon. 
Il est amusant de constater que c'est une société de pressing qui a été chargée, 


‘’Ams- 


E.S.A.T SOFTWARE 
SIREN SOFTWARE 


Un accord de distribution vient 

d'être signé entre la société fran- 

çaise E.S.A.T Software et la 
société anglaise SIREN Software ; cette 
dernière distribuera sur les territoires 
angJlais et allemand le logiciel ECHOSOFT 
qui portera alors le nom de ULTRA 
SOUND, ainsi que le logiciel TRANS- 
LOCK II. 


KIT ‘’HERCULES"’ 
POUR PC 1512 


L'un des nombreux avantages 


du PC1512 Amstrad,réside dans 


l'intégration d'une carte graphi- 
que, couleur, normalisée. Par contre, il 
arrive que des applications spécifiques 
exigent une résolution supérieure, qui ne 
peut être obtenue qu'en ayant recours 
à une autre carte graphique. 
Il est possible, pour les écrans mono- 
chromes, d'utiliser une carte graphique 
compatible Hercules. Seulement, cette 
carte exploitant des signaux différents de 
la carte intégrée, le moniteur doit subir 
une modification. 


12 


SEMAPHORE propose, à cet effet, le kit 
de conversion contenant la carte com- 
patible ‘’Hercules’’ et l'équipement élec- 
tronique de conversion du moniteur 
monochrome. Ce kit contient également 
les logiciels d'installation pour GEM. 


KIT "HERCULES"’ PC 1512 AMSTRAD : 


1390 F HT 
PRODUITS 
SEMAPHORE EN FRANCE 
Depuis 1986, les produits 


SEMAPHORE sont distribués en 
France par Ubi Soft d’une part et 
par S.I.P à Annemasse, d'autre part. Un 
nouvel accord de collaboration vient 
d'être passé avec la société DMS- 
Diffusion qui s’occupera directement de 


tout le service V.P.C. Voici leurs 
coordonnées : 
SEMAPHORE - DMS DIFFUSION 


Av. du Salève 
01220 DIVONNE LES BAINS 
Tél. 50.20.79.85 
Par ailleurs, pour la rentrée, SEMA- 
PHORE se révèle très prolifique. Voici 
quelques-uns des produits annoncés : 
— avec TAS-SIGN, vous avez la possi- 


bilité de créer, vous-même, enseignes, 
réclames ou affiches. Ce programme met 
à votre disposition 4 écritures caracté- 
ristiques, italique, cadrage et centrage 
automatiques, huit options de tramage, 
cadres... TAS-SIGN pilote toutes les 
imprimantes matricielles aux caractéris- 
tiques ‘‘Epson'’ et est entièrement 
paramétrable. 


FE re n 


CPC 


TAS-SIGN, CPC et PCW : 250 F TTC 
TAS-SIGN, PC IBM et Compatibles : 
390 F TTC 

— Lorsque votre logithèque commence 
à devenir relativement importante, il 
s'avère bien utile d'avoir sur votre CPC 
une gestion des catalogues de vos dis- 
quettes. SEMFICH vous permet de clas- 
ser vos programmes par ‘‘genre'’ ou 
‘type’ en commentant brièvement cha- 
cun d'entre eux. Ainsi, avec 45 codes de 
classement, vous pouvez répertorier 98 
faces de disquettes, effectuer une 
recherche et avoir une mise à jour 
automatique. 

SEMFICH, CPC : 330 F TTC 

— Tous les utilisateurs de Tasword 
8000 ont déjà pu apprécier Tasprint sur 
PCW ; Sémaphore tient à souligner à 
tous les propriétaires de PCW que Tas- 
print peut aussi s'utiliser avec les autres 
traitements de texte ainsi qu'imprimer 
tout document ASCII, fichier texte, lis- 
tages Basic, etc. 

TASPRINT 8000, PCW : 250 F TTC 


MICROPROSE DEMENAGE ! 


MICROPROSE est une société 

mondialement connue pour l'édi- 

tion de ses logiciels de simula- 
tion. Son antenne en France change 
d'adresse et nous communique ses nou- 
velles coordonnées : 

MICROPROSE FRANCE 

50 rue La Condamine 

75017 PARIS 
Tél. 45.22.57.01 


QUOI DE NEUF 
CHEZ INNELEC ? 


Innelec ajoute une corde à son 

arc en distribuant, maintenant, 

toute une série de disquettes et 
cartouches numériques qui n'ont plus à 
démontrer leur qualité puisqu'il s’agit de 
disquettes et cartouches 3 M. 
e Vous qui utilisez l'informatique, vous 
ressentez sans doute le besoin de savoir 
taper rapidement ; vous pouvez appren- 


dre à taper à la machine avec AZERTI- 
CIEL, qui demande 20 heures d'assi- 
duité, chaque leçon durant 54 mn et se 
terminant par un test de contrôle. Cette 
méthode vous permettra d'accroître, au 
fur et à mesure, votre vitesse de frappe. 
AZERTICIEL, CPC, PC1512 : 590 F TTC 


CLUBS AMSTRAD 


+ Pour allonger la liste sans fin des 
Fi clubs Amstrad, voici les deux 
petits derniers en date : 

— J.-P. FAURE, 1 avenue Jean Jaurès, 

92150 SURESNES 

— DIGITAL HIRING, impasse des Trem- 
bles, cidex 50, Amayé sur Orne, 14210 
EVRECY, tél. 31.80.41.98 (après 14h) 


A NOTER SUR VOTRE AGENDA 

je Le 19 septembre, à partir de 14h 
_ le Microclub de Maslacq organi- 
La se des démonstrations de fonc- 
tionnement de centres serveurs, logiciels 
applicatifs de gestion et simulation d'ex- 
ploitation, afin de sensibiliser les agricul- 
teurs à l’utilisation de l'informatique et 
de la télématique dans leur activité. 

Microclub de Maslacq, Maison Menat, 
64300 Maslacq. 


e Du 11 septembre au 11 octobre; pen- 
dant toute cette période, vous pourrez 
profiter d’une grande braderie ‘’Micro”’ 
organisée par la société SIVEA, où des 
articles seront soldés jusqu'à 75% de 
leur prix. Alors, pour faire de bonnes 
affaires, rendez-vous tous les vendredis 
et samedis de 10 h à 21h à l'adresse 
suivante : 19 rue Eugène Berthoud, 
93400 St Ouen. | 
Dernier détail : 
gratuite. 

e Du 9 au 11 octobre, durant trois jours, 
se tiendra le Festival de la Micro, orga- 
nisé par notre confrère Néo Média. Ce 
salon, ouvert à tous, se tiendra à l'Es- 
pace Austerlitz, 30 quai d’Austerlitz, 
° 75013 Paris. 


l'entrée est libre et 


LOGICIELS POUR PC 
ET COMPTATIBLES 


INNELEC distribue un nouveau 

logiciel de DAO lancé par le con- 

cepteur d'Autocad AUTOS- 
KETCH s'adresse particulièrement aux 
architectes et dessinateurs de plans. Il 
est simple d'utilisation et est à menus 
déroulants. 


at 


Fr EPYX : avec WORLD GAMES 
VS vous avez accès à 8 disciplines 

différentes allant de l'haltérophi- 
lie au sumo en passant par le saut de ton- 
neaux ou le slalom... Concentration et 
stratégie requises. 


ACTUALITÉS 


IMAGINE : toujours dans la série 

__ … sportive, voici WORLD SERIES 
sy BASEBALL où vous devenez 
maître sur le terrain de l'issue du cham- 
pionnat du monde de baseball... Atten- 
tion ! Avant de vous lancer dans cette 
‘terrible épreuve”, n'oubliez pas le ham- 
burger accompagné du Coca... 


MICROPRO France annonce la 
ss disponibilité des principales fonc- 
_ tionnalités de WORDSTAR 
2000, version 2 en français : en plus de 
la gestion de fichiers pour publipostage, 
vous avez, par exemple, la gestion auto- 
matique de la numérotation des paragra- 
phes ou l'ordonnancement des listes 
d'index alphabétiques.. 

WORDSTAR 2000 version 2 : 5850 F 
HT 


en. SEMAPHORE propose un traite- 
tement de texte simple d'utilisa- 
? tion et malgré tout, puissant. || 
s’agit de la version de TASWORD pour 
les IBM PC et compatibles. 
TASWORD PC : 490 F TTC 


Micronaute 


LE SPECIALISTE 
NANTAIS DU PC 


Revendeur qualifié conseil 


Me S.A.V. personnalisé 
e Contrat de maintenance 
e Logiciels - Livres 
e Location 


M Adresse : 

9, rue Urvoy de Saint Bedan 
44000 NANTES 

Tél. 40.69.03.58 
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ACTUALITÉS 


ET LES NOUVEAUTÉS ?.. 


COBRA SOFT vous invite dès à 
présent à vous familiariser avec 
le ‘‘vocabulaire’’ verlan dans une 
adaptation du film ‘‘Les Ripoux”". 
LES RIPOUX, CPC, PC et Compatibles : 
200 F TTC. 


ET OUTRE MANCHE ? Nous 
vous livrons quelques uns des 
nombreux logiciels qui s'annon- 


COKTEL VISION : pour nous 
mettre en haleine, Coktel Vision 
nous annonce d'ores et déjà une 
aventure touchant le domaine de la B.D 
puisqu'il s'agit du célèbre Blueberry dans 


Le) 


cent pour la rentrée ; BOY RACER chez 
Alligata, PARK PATROL et MISSION 
GENOCIDE chez British Télécom, CALI- 
FORNIA GAMES et WORLD GAMES 
chez EPYX, MASK et DEATH WISH III 


‘’BLUEBERRY ET LE SPECTRE AUX 
BALLES D'OR’. Mais attention ! Seu- 
«lement à partir du 01.11.87. 


UBI SOFT : grâce à INDOOR chez Hewson.. De quoi vous régaler pro- 
SPORTS, vous avez la possibilité chainement dans les bancs d'essai logi- 
de vous entraîner afin de deve- ciels de CPC ou AMSTAR... 


nir l'as des as dans les quatre disciplines 
suivantes : bowling, fléchettes, hockey 
aérien et, pour terminer, ping-pong. SON VIDEO 


AQUITAINE 


; ATARI 
amsrran  SRIC 
OLIVETTI 
d 
INFOGRAMES : nous pouvons (a Re . 
dire que les logiciels touchent à Compatibles IBM 


tous les domaines ! En effet, 
après le cinéma et la BD, voici le domaine 
de la chanson avec MARCHE A L'OM- 
BRE. Dans cette aventure, vous vivez 
‘l'histoire d’un mec à qui on a chouré sa 
mob’'…. (sic Renaud). 


31, cours de l’Yser 

33800 BORDEAUX 
Tél.: 56.92.91.78 
Télex 572-421 
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22, rue de Montreuil 94300 VINCENNES — Tél. : (1) 43.28.22.06 
OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 h et de 15 h à 19 h, LE SAMEDI de 10h 30 à 19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


produits DART 
STYLO OPTIQUE : De loin le meilleur de tous, 
le stylo optique DART à fibre optique vous 
permettra de réaliser de véritables chef d'œu- 
vres. Fourni avec logiciel d'exploitation très 
complet. 
stylo optique (disquette) 
stylo optique (cassette) 
SCANNER GRAPHIQUE : Ce scanner, très sim- 
ple d'utilisation, vous permettra de digitaliser 
toute image sur support papier, à partir de la 
DMP 2000. Fourni avec un logiciel d'exploita- 
tion très puissant. 
scanner graphique “DART" 


Rallonge alimentation + vidéo 

ne soyez plus collé à l'écran, rallonge 464 . 

ne soyez plus collé à l'écran, rallonge 6128 180 F 

housse pour moniteur + clavier 175F 
(préciser couleur ou monoc.) 

ruban imprimante DMPI (par 2) 

ruban imprimante DMP 2000 

adaptateur peritel tous CPC 


Câble imprimante AMSTRAD 

Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard “centronic”. 
câble imprimante 


DIGITALISEUR ARA 

Ce digitaliseur vous permettra non seulement de 
digitaliser des images vidéo provenant d'une ca- 
méra mais aussi des images provenant direc- 
tement de votre T.V. Un logiciel très complet 
vous permettra d'embellir, retoucher, stocker... 
les images digitalisées. Entièrement français. 
digitaliseur ARA 


130F 


rad 


Ge 6128 


{clavier AZERTY) 


#4 SUPER-PROMOTION 
[ CPC 6128 coul + impr. 


Eine À 


PCW 8256 
PCW 8512 


2® ect PCW 8256 
CO intert. RS 232/centronic …. 


D joystick compétition 
PRO5000 .... 170F 


CPC 6128 monochrome 
CPC 6128 couleur 

CPC 464 monochrome 
CPC 464 couleur 

C] imprimante DMP 2000 
interface RS 232 (Amstrad) 
CO] souris 

ler lecteur de disquettes 
2ème lecteur de disquettes 
mangétophone (avec câble) 
câble magnéto 


O 


Disquettes vierges 
à l'unité 


© Tête d'impression 9 aiguilles 

@ Vitesse d'impression de 100 cps en mode listing 
et 16 cps en NLQ 

© Niveau de bruit inférieur à 52 dB 

© Entraînement du papier par friction ou traction 


imprimante SEIKOSHA SP 180 


SYNTHÉVOC 1 


“ne lui manque que la parole”, synthé. VOCI la lui donne ! 
Très performant ce synthétiseur vocal va vous permettre 
de rendre votre ordinateur plus bavard qu'un politicien en 
campagne ! 

synthétiseur vocal 

7 logiciels vocaux sur disquette 


ts Pois 


switch-joy 


Cl'mterface TV (avec câble)... 2.44 citons. oo secs Ve 
[1 interface TV avec télécommande (avec câble). . . .. 


549 F 
..195F 


Ejovstick switch-jov 


LOGICIELS PCW 


me) 


) 


(ei 
(ee) 


O 
(e) 


alienor 
guardian 
azerty … 
batman. 
blocus . 
bob winner. 
bounder 
bridge player 

cobol (not. angl.) 

campagnon 

compta. gene. (alphasoft)1175 F 


.590F 
.190F 
.-265F 
.250F 


datamat PCW 
dbasell … 
enchanter . 
exbasic 
fairlight 


acro jet 


force 4 + miss. detector. 190 F 
frank bruno's boxing .185F 
genecar .199F 
GPII+ mailings . … 890F 
graphologie + biorythmes 199F 
heathrow air control 180F 
histoire d'or .245F 
infidel .265F 
la paie cresus 1176F 
langage “C” (not. a vi .550F 
multiplan . .…. 498F 
mynea .… .830F 
orphée .275F 
CIPCW graph .395F 
PCW paint .350F 
polymail + polyword 460F 
polyplot + polices n° 1 … 460F 


algèbre 4° - 3° 


amstrad gold hitsil ... 


anals of rome 


apprends moi à lire . 
apprends moi à écrire .… 


arkanoïd .... 


army moves 


asphalt 


astérix potion mag. . 
athlètes 


autoform. assembl. . 


ballbreaker ..… 
barbarians .. 


basketball .. 


bobwinner .. 


bridge .... 
budget famil 
calcumat .... 


canadair .... 


carte de France 


cessna over Moscou 


cobol (notice angl.) ..….. 


colossus chess 4 


NOM 


compac move 
contamination . 
convoy rider .… 
cosanostra ... 
DAS, ..:.7. 
dame scanner . 
danger street . 


démons. géom. 4°/3° 
chiffres et lettres 
dessin 3d 

enduro racer 

équation inéqua. 4°/2° 


passagers du vent Il ... 
. 0100F0145F 


express rider .... 
F15 strike eagle . 


gauntlet 

grand prix 500 
graphic city .….… 
h.m.cobra 
histoire d'or 


polyprint + polyword …. 490F 
polyprogram .…. .1185F 
quick mailing . 190F 
S.AS.raid 160F 
290F 
265F 
265F 
265F 
350F 
240F 
175F 
185F 
450F 
180F 
275F 
… 230F 
350 F 


seatalker . 
sorcerer … 
CUspellbreaker . 
spool 
Cstarglider ..… 
steve davis sn r 
strike force harrier 
tassword 8000 
tomahawk … 

top secret. 

trivial pursuit 
rotate 


210F 
140F 
O115F0160F 
0140F0195F 
0295F0395F 
0140F0175F 
135F0165F 
D450F 
0790F 
0175F0245F 
O210F0295F 
D255F 
0105F0155F 
0175F0245F 
D290F 


260F 
199F 


hit pack n° 1 
hit pack n° 2 
hits ère vol. 1 . 
indoor sport . 
Lys... 
kid kit 


la formule 
la geste d'artillac 
le necromancien 


leader board 


les lauréats 


115F0160F 
D140F0180F 
100F0145F 
150F0180F 
150F0195F 
299F01299F 
199F 


livingstone 


macadam bumper 
marche à l'ombre 


ADRESSE 


Mode de paiement : 


chèque / 


mandat / 


bob winner 
échecs 3 D 
grand prix 500 
HMS. cobra 
histoire d'or 


amstrad PCW guide basic 145 F 
Clamstrad à l'école 
Clamstrad en famille 
Camstrad et imprimantes .. 
Clamstrad guide bas./ams. 
amstrad locoscript 

bien détr. CPC 6128 

bien détr. PCW 

bien détr. PC 1512 

clefs pour mastrad T1 ... 
clefs pour amstrad T2 


95F 


LOGICIELS CPC 


les passagers du vent 
macadam bumper 
marche à l'ombre 
meurtres en série 


LIVRES 


Oclefs pour amstrad PCW..215F 
commu. mod. minit. CPC 149F 
CP/M + amstr. CPC PCW 100F 
gest. sur amstrad PCW...175F 
graphis. sons CPC 129F 
Oje débute basicamstrad . 91F 
Dl'assembl. de l'amstrad...105F 
Dl'univers du PCW........119F 
la bible du graph. ..199F 
la bible du progr ..249F 
CDlangage machine CPC....129F 


C D 


phalsberg 
prohibition .. 
silent service 


livre CP/M amstrad 

Dlivre lect. disq. CPC 149F 
tour del'amstrad CPC... 96F 
Oroutines de l'amstrad CPC 149 F 
logo sur CPC 

multiplan sur amstrad 
Cmusique sur l'amstrad 
Cprogr. éduc. sur CPC 179F 
trucs astuces pour CPC..:149F 
Clturbo pascal sur amstrad .150 F 


195F 
148F 


foot + tennis + 5° axe . 


massacre à la tomate .. 
mastertronic dis. n° 1 . 
mastertronic disq. n° 2 . 


160F0199F 


100F0140F 


105F0145F mastertronic disq. n° 3 . 


O125F0199F 


D 99F 
99F 


99F 


160F0240F 


105F 


230F 


mercenary 


115F0155F 
140F0199F 


meurtres en série 
miami vice 


285F01285F micro scrabble 


konami'scoinophits 


110F0140F 
125F0199F 
199F0265F 


monopoly ..….. 
multiplan .. 


nemesis BE 


le passager dutemps 


0170F 
D199F 


nitrogl. lucky luke 
pacman super pac .... 


265F 
. D100F0150F 
. D210F0255F 

. D190F0245F 


95F0 


0299F 


D449F 
145F 
220F 
150F 


115F0160F 


les classiques vol. 1 ... 


les maîtres dutemps .. 
lestempliers d'orven .… 


110F 


155F 


paperboy ... 


160F0210F prohibition . 


:. 0125F 


199F 


D165F rally2 ..….. 


160F 


190F 


160FC210F  reliefaction : D 


160F 


199F 


180F0220F rev./gre./cauld/sorc. .. 


160F 


O210F 


140F0195F road runner 


105F 


155F 


130F0190F samouraï trilogy . 


110F 


160F 


140F0175F 
145F0245F 


sapiens 
shogun 


145F0199F 


silent service 


PC 1512 6128 mono. 


6128 coul. 


TÉL 


CODE POSTAL 


.… 0140F 
. D120F0165F 
O110F0160F 


Ü180F 


[1 464 coul. 


space harrier 
starglider .... 

street hawk 

taipan 
tasword-mailmerge 
tennis 3d 

tensions 

textomat 

sold à millionn° 1 .... 
sold à millionn°2 .... 
sold à million n° 3 

thing bounces back . .…. 


trio hit pack ..…. 

trivial pursuit ........ 
tuer n'est pas jouer ..….. 
valeur plus 1.2 .. 
volley ball .... 
winchester ... 

world games .. 

yie arkungfull ....... 
zarkas atomicfiction .. 


COMMENT COMMANDER :Cocher le(s) article(s) désiré(s) ou faites une liste sur feuille à part - Faites le total + frais de port (20 F pour achats inférieurs à 500 F, 40 F de 500 à 1000 F, 60 F de 1000 F à 2000 F, 80 F pour achat supérieur à 2000 F) 
ORDINATEUR : 


1 464 mono. [18256 [] 8512 


VILLE 


contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. [] 


VENTE AUX COLLECTIVITES : numéro réservé : 48.86.92.84 


Tous nos prix sont indicatifs 


DE PRISMES, 
CERCLES, 


ARCS DE CERCLES 


AVEC SAISIE 
SUR ECRAN 


EN 7ème PARTIE 


ENGENDREMENT 


CAO 
CPC 


ES 
Jean-Pierre PETIT 


Jean-Pierre PETIT est directeur de recherche au CNRS. Il est 
l'auteur d'un logiciel de CAO de 120 Ko intitulé AMSTRAD 3D, 
assorti d'un livre du même nom, édité par PSI. Le logiciel a été 
délibérément mis dans le domaine public, c'est-à-dirs que vous 
pouvez le copier sur une disquette AMSTRAD-CPC en toute 
tranquillité chez un revendeur ou un ami. Le livre est un gros mode 
d'emploi du logiciel, pour non-programmeur. 
Mais ce programme est riche de ficelles de programmation, liées à 
l'imagerie. 3D. Dans cette sulte d'articles, Jean-Pierre PETIT 
explique au lecteur toutes ses astuces, ce qui lui permettra peut- 
être de construire lul-même son propre programme de CAO. 


+ REMARQUE 

Certains lecteurs semblent avoir eu 
des difficultés à se procurer la dis- 
quette AMSTRAD-3D. En plein ac- 
cord avec l'éditeur, vous pouvez, le 
cas échéant, adresser une disquet- 
te AMSTRAD vierge à l'auteur, à l'a- 
dresse suivante : 

Jean-Pierre PETIT, Chemin de la 
Montagnère, 84 Pertuis, Vaucluse, 
dans un emballage ad hoc, avec vo- 
tre adresse et un mandat de 50 F 
pour le port. 


INTRODUCTION 


Depuis le début de cette série 
d'articles, nous travaillons sur deux 
modules-programmes, _intitulés 

MOD1 et DES, qui sont liés par chaî- 
nage (méthode du spliting). Dans 
cette leçon 7, nous allons encore 
une fois travailler sur MOD1. Vous 
pourrez évidement, si vous avez 
suivi les leçons précédentes, com- 
pléter MOD1 avec les sous- 
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programmes additionnels que nous 
allons construire ensemble. Mais si 
vous "prenez le train en marche", le 
programme donné ici tournera 
quand même, grâce à son "sque- 
lette minimal" où on trouve : 


— le début (dimensionnement de fi- 
chiers, flags, MENU, ligne de dispat- 
ching) ; 

- la séquence de stockage d'objet 
(8000-8999) ; 

—le sous-MENU CREER UN OB- 
JET (9000-9999) ; 

—la séquence d'incorporation de 
chaîne saisie à l'écran (14000- 
14999), voir leçon 5 ; 

—la séquence (25000-25999) de 
tracé de l'objet déjà existant (pour 
compléter avec saisie écran) ; 

—la séquence (60000-60999) de 
définition du mode de saisie.6è ; 

—la séquence (61000-61999) de 
saisie à l'écran ; 

—la séquence (65000-65535) de 
saisie de caractère. 


CREATION D'OBJETS 
PRISMATIQUES 


Nous allons ici nous contenter de 
créer des prismes droits, ayant une 
base horizontale. Vous pourrez en- 
suite déplacer ces objets quand 
nous disposerons des routines de 
translations, rotations. 


Dans cette séquence, nous avons 
ajouté deux modifications, que le 
lecteur voudra bien noter (mais si 
on procède par un MERGE, celles- 
ci se reporteront automatiquement 
sur la partie de programme déjà 
créée). Dans les lignes 25050, 
25060 et 25070, on a remplacé le 
registre C par le registre CP (choix 
du plan de saisie). 

Dans la section 61000 à 61999, on 
a ajouté la ligne 


61665 IF L<>-1 THEN GOSUB 
25000 : REM RETRACER OBJET 


qui permet un retraçage de l'objet 
préexistant (s'il en existe un, c'est-à- 
dire si L est différent de sa valeur 
d'initialisation —-1), au cas où on an- 
nule la saisie. 

On notera également l'extension 
de l'ordre de dimensionnement, se- 
lon : 


4 DIM XT(49,12),YT(49,12), 
ZT(49,12),N(49), XE(12), 
YE(12) : REM etc... 


L'option CREER UN OBJET orien- 
te vers le sous-programme 9000 et 
débouche sur un sous-menu où on 
choisira : 


d-Créer un prisme. 


qui oriente vers le sous-programme 
54000. On demande alors à l'écran 
deux choses à l'utilisateur : la cote 
(l'altitude) de la base du prisme (ZO) 
et la longueur du côté du prisme 
(Z1). La cote de la face supérieure 
du prisme est ainsi (ZO + Z1) (figure 
1). 


Le sous-programme 54000 envoie 
alors vers l'adresse 61000, qui est 
l'adresse du sous-programme de 
saisie de contour polygonal. Au pas- 
sage, on stipule que A$ = "X" et 
que O$ = "Y". Ceci fait, on verra ap- 
paraître sur l'écran de saisie les in- 
dications de l'abscisse X et de l'or- 
donnée Y. 


QUE DES AVANTAGE = 
t ADHE SION GRATUITE 
#4 Echarye ttes marquées, +7 


pour 7, Dr pour 
tas f 


Dr au mére 
% UN ECHANGE GRATUIT &* pr 
10 éectiangés wftec tués, 


4 PFLssibilité de recævoir 
ou l£ JEUX par echange, 


*+ Echanger facture à = FRS 
et menée à 20 FRS Ut, 


+ ENVOI FAR RETOUR DU COURRIER 
Uoc. contre æriv.timbrèe & 


EU. Gen RU ME et 2e € a 
SE 5 =" 


4 5 
MULHOUSE 


GsOoEeS 


DEBARRASRSEZ-VOUS VITE DE VUS 
JEUX ENNUYEUX FOUR DECOUVKIK 
DE NOUVEAUX TITRES 

ts. S0 Frs dé port 


Plan de la base du prisme 


Figure 1 : Prisme à base horizontale 


Nous n'insisterons pas sur la procé- 
dure de saisie, puisque cela a déjà 
été décrit dans la leçon précéden- 
te. On déplace la croix de saisie 
avec les touches fléchées, ou avec 
<Shift> <Flèche>, qui crée une cer- 
taine démultiplication du mouve- 
ment. Chaque point du contour est 
saisi à l'aide de la barre d'espace- 
ment. La fin de saisie est indiquée 
par un <Return>. L'ordinateur de- 
mande alors une confirmation. Si 
on répond négativement, la saisie 
est annulée. Rappelez-vous que 
tout contour saisi à l'écran est limité 
à douze segments, puisque c'est la 
capacité maximale d'une chaîne. 


Ce contour étant saisi, l'AMSTRAD 
va créer une première chaîne qui 
sera identique à la base de ce pris- 
me. Ceci correspond aux lignes 
54040 à 54090. On convertit sim- 
plement les fichiers XE(J) et YE(J), 
issus de la saisie écran, en fichiers 
points objets XT(L,J), YT(L,J), la co- 
te commune étant ZT(L,J) = ZO. 
Dans les lignes 54100 à 54150, on 
crée la base supérieure du prisme, 
de cote (ZO + Z1), puisque Z1 est 
le côté de celui-ci. 

Dans les lignes 54155 à 54240, on 
crée les côtés du prisme, comme 
autant de nouvelles chaînes conte- 
nant un seul segment (N(L) = 1). 


Que peut-on faire avec des pris- 
mes ? Beaucoup de choses. Imagi- 


nons que nous voulions créer les 
cloisons d'un appartement. Nous 
attaquerons par 


a-Créer un objet 


Nous créerons une première struc- 
ture prismatique (qui n'a nul besoin 
d'être fermée) et nous continue- 
rons par 


b-Complèter un objet. 


qui attaque en 9010, ce qui court- 
circuite la ligne 9005 de réinitialisa- 


URGENT !!! 


EE 
Occasion à saisir sur Bor- 
deaux, livré clés en mains, 
point de vente micro agréé 
AMSTRAD, ATARI, COM- 


MODORE. 
C.A. actuel minimum : 
300000 F/mois. 


Pour tout renseignement 
Tél. 56.91.15.81 


tion du registre L (compteur de chaî- 
nes). Nous allons créer une secon- 
de structure prismatique, qui passe- 
ra par une seconde saisie sur 
écran. On notera la ligne 54025 CP 
= 1 qui permettra d'orienter le tracé 
de l'objet déjà existant (sous- 
programme 25000, appelé à la li- 
gne 61017). Dans ces conditions, 
on pourra définir un second con- 
tour polygonal, correspondant à 
une seconde cloison (figure 2), etc. 


Vous pouvez faire beaucoup d'au- 
tres choses avec des prismes, en 
passant par l'option compléter un 
objet. Vous pouvez, par exemple, 
vous exercer à créer un Ziggurat, 
ou pyramide à degrés assyrienne (fi- 
gure 3). 


Vous pouvez aussi vous amuser à 
créer une sorte de temple mégalithi- 
que, dont les colonnes auraient 
des structures prismatiques et sou- 
tiendraient un lourd linteau (figu- 
re 4) 


CREER UN CERCLE 


Nous allons vous donner deux fa- 
çons de procéder totalement diffé- 
rentes. Dans un cas, on aura une 
saisie écran, le plan du cercle étant 
situé dans un plan parallèle aux 
plans de coordonnées XOY,XOZ, 
YOZ. On définira le cercle en poin- 
tant d'abord le centre, puis un point 
quelconque situé sur le cercle. 

Dans la seconde option, on donne- 
ra les coordonnées du centre du 
cercle, puis la valeur du rayon R, 
puis les coordonnées angulaires 
définissant la direction de l'axe, qui 
pourra être ainsi quelconque. 


Commentaire 
du sous-programme 32000 


Le message "CREER UN CER- 
CLE" apparaît pendant un temps li- 
mité (boucle de temporisation en 
32015), puis on définit le type de 
saisie (sous-programme 60000). Si 
le Flag CE (type de saisie) est égal à 
1 (saisie clavier), on saute directé- 
ment à 32200. 

Si on a opté pour une saisie écran, 
le sous-programme 60000 nous a 
automatiquement orienté vers le 


18 


Figure 3 : Création 
de la pyramide assyrienne 


À 
TS 


À 


| 


Figure 4 : Le temple mégalithique 


Figure 2 : Cloisons d'appartement 


Fin de saisie 
ça vous va ? 


Figure 5 : Fin de saisie des éléments définissant un cercle dans un 
plan parallèle à X O Y 


sous-programme 61000 de saisie 
de contour polygonal. Cette saisie 
sera limitée à deux points, le pre- 
mier représentant le centre du cer- 
cle et le second un point quelcon- 
que situé sur le cercle. 

À partir de cette donnée, on calcule 
alors la valeur du rayon R de ce cer- 
cle (ligne 32030). Dans les lignes 
suivantes, on crée ce cercle, selon 
un contour polygonal à douze seg- 
ments (dodecagone) à la fois dans 
les fichiers XT(L,J), YT(L,J), ZT(L,J) 


SI VOUS AVEZ L'INTENTION DE CRÉER 
OU SI VOUS AVEZ DEJA CREE 


VOTRE BOUTIQUE 
INFORMATIQUE 


Paie 


REJOIGNEZ-NOUS AVEC LA FRANCHISE 


SON VIDEO 2000 ET DEVENEZ 
UN DISTRIBUTEUR POINT MICRO POUR 
MOINS DE 20000 F !!! 


DISTRIBUTEUR AGRÉÉ AMSTRAD, 


COMMODORE, ATARI, ORIC et COMPATIBLES PC. 


RENSEIGNEMENTS : 
Tél. 56.91.15.81. 


et dans les fichiers écran XE(J), 
YE(J). Cette création dépendra du 
plan choisi (registre CP de choix du 
plan). 

En 32100, on envoie au sous- 
programme le tracé de quadrillage. 
En 32105, on trace l'ensemble de 
l'objet (les L + 1 chaîne) . Il y a une 
deuxième possibilité d'annulation 
de la saisie du cercle qui apparaît 


ça vous va ? 


maintenant sur l'écran. Celui-ci oc- 
cupe la chaîne d'indice L, la der- 
nière de l'objet résident (si on a par 
exemple décidé de compléter l'ob- 
jet avec ce cercle). Si ce cercle 
n'est pas bon, on se contentera de 
décrémenter L d'une unité et de re- 
tourner en 32000, sinon le RE- 
TURN signalera la fin de tâche. 


Reprenons cette séquence en re- 
gardant ce qui apparaîtra sur l'écran 
après la séquence : 
a-Créer un objet 
e-Créer un cercle 
b-Saisie écran 
(Contour polygonal plan) 


Contours polygonaux 
dans plan parallèle à : 


a-XOY 
Cote plan ? 1.5 


Nous voyons apparaître le classi- 
que plan de saisie. Comme nous 
avons choisi le plan XOY, nous 
voyons apparaître les lettres X et Y 
au bout des axes. La croix de saisie 
est à l'origine. 


Nous pointerons d'abord le centre 
du cercle, puis un point quelcon- 
que sur le cercle. AMSTRAD dessi- 


dodécagone 


Figure 6 : Demande de confirmation après saisie du cercle 


nera le segment en demandant "Ça 
vous va ?" (figure 5) 


Si vous répondez <O>, AMSTRAD 
dessinera cette fois le cercle et de- 
mandera une nouvelle confirmation 
(figure 6). 


Si vous répondez <O>, la saisie se- 
ra validée et vous retrouverez le Me- 
nu Général. 


La séquence 32200-32999 se ré- 
fèrence à la saisie clavier. XC, YC, 
ZC représentant les coordonnées 
du centre du cercle, dans l'espace 
erR est son rayon. 

On définit alors l'azimut et le site 
de l'axe du cercle. La figure ci-après 
permet de situer ces angles, fami- 
liers aux artilleurs. 

NB : un cercle d'azimut et de site 
nuls aura pour axe OX. Une valeur 
du site de 90° correspond à un cer- 
cle situé dans un plan horizontal. 


CREER UN ARC DE CERCLE 


Ce sous-programme est évidem- 
ment bien commode pour tracer 
des congés de raccordement sur 
des pièces, dans du dessin indus- 
triel, ou toutes sortes de choses. 
Le détail de ce sous-programme 
33000 n'a peut-être pas énormé- 


ça vous va ? 


Figure 7 : demande de confirmation de saisie de contour polygonal lié à la 
saisie d'un arc de cercle 


centre 


ça vous va ? 


ment d'intérêt. Ici, la seule saisie 
possible est sur l'écran, dans des 
plans parallèles aux trois plans de 
coordonnées. Pour définir l'arc de 
cercle, il faudra d'abord pointer le 
centre du cercle, puis le début de 
l'arc situé sur le cercle. Le troisième 
point ne pourra pas être sur le cer- 
cle. 

On devra impérativement introduire 


début de l'arc 


M point situé sur la fin de l'arc 
2 


Figure 8 : Demande de confirmation après tracé dudit arc de cercle 


et définir les extrémités de l'arc 
dans le sens trigonométrique (c'est- 
à-dire selon l'inverse des aiguilles 
d'une montre). 

En fin de saisie du contour polygo- 
nal limité à trois points, l'AMSTRAD 
tracera ce contour et demandera 
une première confirmation (figu- 
re 7). 


Losrque cette saisie est réalisée, 
l'AMSTRAD calcule les deux angles 
A1 et A2 correspondant aux abscis- 
ses angulaires des deux extrémités 
de l'arc, par rapport au centre du cer- 
cle. Le sous-programme 18000 lè- 
ve l'ambiguïté liée au calcul de l'an- 
gle à travers la fonction arctangente 
(figure 8). 


CONCLUSION 

Si on excepte la sous-option : 
c-Travailler sur un objet standard 
qui nécessitera une connaissance 
de la manipulation de blocs, nous 
avons achevé les sous-program- 
mes liés à l'option principale 

CREER UN OBJET. 


Dans les leçons suivantes, nous 
verrons comment combiner agréa- 


blement ces séquences program- 
mées. 

Si vous avez composé au clavier 
tout ce qui précède, vous savez ce 
qui vous reste à faire : après avoir 


veaux sous-programmes avec vos 
travaux précédents en utilisant l'ins- 
truction MERGE (attention, faites 
des sauvergardes des étapes inter- 
médiaires, on ne sait jamais…). 


quences sur votre travail précé: 
dent. Notez que MOD1, au stade 
actuel, fait déja 15 Ko, tandis que 
DES en fait 5, ce qui nous fait un en- 
semble de 20 Ko. 


vérifié soigneusement 
fonctionne, 


que tout 
fusionnez ces nou- 


Vous aurez pu également procéder 
en ajoutant directement ces sé- 


Listing 1 


{ REM MODI 5 mai B7 + Prismes, cercles, arcs de cercie :XE< 9426 FRINT'a-Creer chaine par chaine" :QM< 
(Programme F9) 9836 FRINT'b-Objet de revolution" 3LN< 
2 IF FD=i THEN 236 AWC< 9446 FRINT'c-Travailler sur un objet standard" #XP< 
3 FD=i: L = - j:REM Initialiser L (L+#i chaines dans ob] :ELi GS PRINT"d-Creer un prisme ÊTES 
et ) 9666 PRINT"'e-Creer un cercle AR 
4 DIM XT(49,12).YT649,121,27049,12).N(49).XE (12 ,YE(12) DHEX 9070 PRINT'4-Creer un arc de cercle" ÿIT£ 
tREM Elec 9656 GOSUE 85006: REM Saisie caractere 2WVE 
7 GOSUB 24946:REM Choix des couleurs #MH< 9194 IF C7 OR C =-51 THEN 9990:REM SORTIE DE SOU-FROBR UL£ 
18 CLS *BB< AMME FOSSIELE FAR £RETURN: 
15 PRINT'MENU PRINCIPAL": PRINT +EG< 9162 IF CG THEN 9666 :QN£ 
24 FRINT'a-Creer un objet" FPC< 9116 ON C GOSUE 26006, 34û00, 11000,540û6, 32000, 33086: REM EM: 
36 FRINT'b-Completer un objet" #HD< Etc... 
48 FRINT'c-Stocker un objet" #DE< 9999 RETURN sVP< 
36 FRINT'd-Charger un objet” | 3 XF: 14908 REM INCORFORER LA CHAINE À L'OBJET RF< 
bi PRINT "et: PRINT EI: PRINT Safe PRINT SR: PRINT I -RR :TGE 14810 L=L+i : Nili=il 5 TG 
INT" PRINT" 14826 FOR J = 4 TO N{Li:REM TOUS LES FOINTS #NHS 
78 PRINT "I-Creer une image" 14936 IF CP=1 THEN XTIL.J)=XE Je YT(L,J)=YE(J}:2T(L,J)= AJ 
86 PRINT 'n-": PRINT ns PRINT 0": PRINT" p-" Zi 
186 PRINT'a-Quitter" 14046 IF CP=2 THEN XTIL,J)=XE (Ji: 2T(L,J)=vE(J):YTIL, Je >BK€ 
195 iF ELg < UOTHEN LOCATE 22,21:PRINT'Objet resident JR ÿi 
MALOCATE 22,23:PRINT ELS 1405û IF CP=3 THEN XTL.Ji=ti :YT(L,Ji=XE(J):2T(L.Ji2YE CL 


197 IF Léi-1 THEN LOCATE 31,23:PRINT L+ii® ch." PNU< (J) 
266 GOSUR 65466: REM Saisie caractere EC idééë NEXT J 

21 IF C=17 THEN END 3FD< 14999 RETURN 

220 IF C = 12 THEN CHAIN'FIG PHE< 18606 REM DISCRIMINER ARCTANGENTE 

236 ON C GOSUB  9adû, 9010.00, 5ûûû: REM etc... >LF< 18018 AA=ATN(Y/0 

999 ER, "4,.bak":G0T0 14:REM Boucie MENU HE< 18870 IF X0 THEN Aâ=Aû+ FI :HM£ 
3600 REM Chargement objet < 18930 IF X>0 AND Y<à THEN AA=2#PI+AÀ >EN< 
3999 RETURN 7K< 18646 IF X=0 AND Y>0 THEN AA=PI/2 »IP< 
8606 REM STOCKAGE OBJET ?PXK 18056 IF X=à AND Y< THEN AA=34P 1/2 >1B{ 
8916 INFUT'Non de l'objet “:EL$ FWE< 18999 RETURN >XP< 
8620 OPENQUT ELS #UL< 24008 REM CHOIX DES COULEURS »XG< 
8025 FRINT #9,L:REM L'OBJET 4 (L+1) CHAINES RE 24999 RETURN sUL< 
8655 FOR 1=6 TO L' REM Pour toutes les chaines ailant d ?GM< 250û0û REM TRACE EN PLAN DE L'OBJET EXISTANT 35GHé 
ebal 25019 FOR I=0 TO L : FOR J=û TO Nil) RE 
8644 PRINT #9. NI) :REM Nombre de segments sur chaine FDN< 25026 XX=XT (I, J)#100:REM INTERMEDIAIRES DE CALCUL JE 
8959 FOR J=6 TD N(li: REM Pour tous les points de La ch >TP4 25026 YY=YT(I,J1#100 3UL£ 
aine d'indice I 25049 2Z=1T(I,J)#100 PME 
Bob PRINT #9,XTCI,JI,YTCI, J),ZTUI,J) >AQ< 25050 IF CP=1 THEN XE=XX+300: YE=YY+200 >YNE 
8670 NEXT JENEXT I ?RR€ 25060 IF CF=2 THEN XE=XX+300: VE=27+200 »CP4 
8086 CLOSEOUT ?CT< 25070 IF CP=3 THEN XE=VY+300: YE=17+200 »G60< 
8999 RETURN ?UN< 25086 IF J=6 THEN PLOT XE,YE ELSE DRAM XE,YE, 2 >RR< 
9006 REM CREER UN OBJET +1K£ 25698 NEXT J : NEXT I aVTE 
9605 L=-1iK=k+1:EL$(K)="":ELS$="" M0 25999 RETURN >VM£ 
9019 CLS:PRINT'CREER UN OBJET":PRINT ?LL£ 26006 REM CREER DES CHAINES ARE 


26999 RETURN 

12664 REM CREER UN CERCL 
324919 CLS:PRINT'CREER UN CERCLE‘: PRINT 

2015 FOR TT=6 TO Sb : HEXT IT 
GOSUE 66604: REM APN tYPe de 341318 
IF CE=i THEN 
R=SUR (xE ti 
}-YEt&ir 
:2640 = L+] : N{Li=i sAGeiE (ais vasÿE it 
32654 FOR J = & TG 1£ 
Mt) IF CF 
de Yo + R#SINOJ#PI/&6is2T(L,.Ji=iis KEUJI=ATiIL, rite 
ca YT{L, Ji 
JS&74 IF CF = 
L.Ji=Yé + RASINCJ4PI Hi YTL. Jiayis XELJI=ATIL 
ziT(L,. Ji 

32084 IF CP = 3 THEN YTIL, Ji Ra COS (JaPl/bii 
J'=YOHRAGINCTAF I éieaATiL, Jiséis AÉJI=ETIL, 
L.Ji 

32494 NEIT J 

3366 CL 


37165 60 


j-{E(giiættE(li-£Eibii + (VEINE: 


.J'itEur 


Jisteigi 


OSUE #1806 
ZSAGG:REM TRACE 
l 

E 

) 


: FRINT'Ca vous va 7" 


32198 IF C 45 15 THEN Lei-1 20010 32646 ELSE RETURN 


32240 CLS : PRINT'CREER UN CERCLE": PRINT: PRINT" Coordonn :5 


es du centre :':PRIAT 
26 INPUT ESC 

à INFUT'Y= 
à INFUTI= 
| ni PRINT: INPUT Rayon “6 

9 PRINT: INPUT" Azimut,par rapport 3 
S2=A14P1/180:CA=COS (AZ: : SASSIN(A 
74 INFUT'Site “:SI:SI=SI#FI; 184: CE 


74 LeL+iiNILI=13 

36 FOR J = 4 TO 12 

5 ae -R4COS CJaFT 81: 12RASINCTaPI 6) 
i=-740G+k4CG: Y1=Y 

du IaCS+ess 

9 ÉTIL,Ji=ti4CA-Yiesatit 

#TEL, Jet aGA+YLACARE 

576 ITIL,Ji=7i+i0 

32386 NEXT J 

2995 RETURN 

Thé REM CREER ARC DE CERCLE 

33924 CLS:PRINT'Pointez le centre,puis les extremites": 

FRINT'de l'arc de cercie"“:PRINT:GOSUE 69056 


Led Es ca Led La La 


33046 R=SüR( (NE(L)-HE())#(KEL)-XE (OI) + (YECLI-YE(O) 


j#(YE(L)i-YE(&i) 
33450 L=L+i : N(Li=12 : {0=XE (9: VO YE (6) 

33052 K=XEt1)-XE (6): Y=YE(1)-YE(É) :GOSUE 18004: AÎ=AÂ 
32054 X=XE (2)-XE 00): V=YE (2) -YE (0) :GOSUE 18006: A2=AA: IF 
AZ=4 THEN A2=24PI 

33055 IF AZ<Al THEN 42=à2+24PI 

35056 DA=(AZ-A1) /12 

33866 FOR J = 4 TO 1Z:REM Creer arc de cercie 

33476 IF CF = 1 THEN XTIL,Ji= 


22 


Îi THEN ATIL,Ji= X6 + Ra COS CJaPi/éii TU: 


2 THEN XTEL, Jia 46 + Ke COS (JaPlisis ITU F 


k6 + R4 COS (Al+JaDA)s YT à: 


(L,Ji= #6 + RaSIN(Bi+JeDhis TL, Jizzis KEJizXTiL,JritE 
(Ji=NTiL, Ji 

33980 IF CF = 3 HEN ETIL.Jiz x4 + Re COS 
(L,Ji=tt + RaSINIAt+TaDA is TIL, Jizvi: EU Ti 


CF = 3 THEN 1Til.Jistüt Rs COS 


= ihitisDéi: 
#SINiAl+JeDAis TL, Jissis sEiji= 


Î 
F{L.Jiiveiji= 


dt HEIT J 

3 CLS : GÜSUE élu: REM Trace quadriliage 
à GOSUR 25066 : REM Trace oniet 
à LOCATE 1.1 : FRINT'Cs vous va | 
à GOSUE 65 :é 

6 IF DC <; 15 THEN Lal-1 16070 io 

5 RETURN 

06 REM CREATION OEJET DE REVOLUTION 

76 RETURN 

à REM OBJET L'AXE D 

399 RETURN 

306 REM OBJET D'AKE OY 

3 RETURN 

17666 REM OBJET D Aïe 97 

37993 RETURN 

Sdoe REM CREER UN FRISME 

54614 CLS:FRINTYCREER PRISME,EASE HORIIONTALE "+ PRIT 
54ùis INFUT'Cote 0ase prisme "i26 

546026 IHFUT'Hauteur prisme “i£liFe 

S6iS CPEI:IREM SBISIE DANS FLAN «0 

Sd Az" ti Os" GOSUE £ibbui: 
YGONAL & L'ECRAN 

gdû4é Lel+isNilis]l: REM CHAINE BASE FRISME 
54656 FOR J = à TO KiL: 

gd9sg £T(L,Ji=4EtJ: 
5467& YT(L,Ji=YE Ut 
54886 IT(L,ji=18 

54994 NEXT J 

54164 Leb+iiN(LI2II:REM CHAÏNE DESSUS FRISME 
S4iié FOR J=8 TO N(L) 

4126 XTIL,JI=xE CT: 

54136 YT(L,Ji=YEtJ} 

Sdi4é IT(L,Ji=244+71 

54156 NEXT J 

54155 REM CREATION DES COTES EU 
Sdisé FOR J = 6 TO II 

54174 Lel+i : Nilrai 

54184 XTIL,Gi=xE Ji 

54190 YT(L,4)=YE (Ji 

54266 1T(L,.4i=74 

54216 XTIL,1i=xE gi 

54238 YT(L,1i=YE(J} 

34256 IT(L,1i=71+16 

54246 NEXT J 

54999 RETURN 

66406 REM DEFINITION OÙ TYPE DE SAÏSIE DE CHAINE PLANE 


ti 


PRISME 


£ag14 CLS : PRINT'DEFINITION TYPE DE SAISIE": FRINT 
64929 PRINT'a-Gaisie ciavier (par defaut)" 


64838 PRINT'b-Gaisie ecran (Contour polygonal piani":60 HE 


T 
Fe Éi i D 


œ 
= 


REM SSISIE CONTOUR FOL HN: 


SUB 65064: CE=C 
664 IF CES:2 THEN CE=1:GOTD 60997 


66959 PRINT:FRINT"Contours polygonaux dans pian":FRINT 


éGén FRINT'parailele à : ":FRINT 


66979 PRINT'a-{0Y":PRINT"'Db-X0Z":PRINT"c-YOZ":GOSUE 6500 : 


D: PRINT 
biiô IF C = 


1" 


66126 IF C =2 THEN INFÜT'Ordonnee plan “iYisA$="X":0$=" 


ra 


4135 CP=C: REM Memorisation du choix de ce plan 


64146 GOSUE &100G:REM Saisie ecran 
69999 RETURN 

61406 REM SAISIE ECRAN 

bin CLS 

&idig II = -i : XE = 366: VE =268 : 
REM INITIALISATIONS 


61815 GOSUB 61806:REM TRACE GUADRILLAGE | 
61917 IF L£s -1 THEN GOSUE 2Sü6@: REM TRACER L'OBJET EX XF: 


ISTANT 
61026 GOSUE é61766: REM TRACE CROIX 


61936 CH=INÉEYS : IF CHE" THEN 61634 


bi435 C = ASC (Ct) 


&ia5è GOSUE 61704 : REM EFFACAGE CROIX 
61064 IF C = 247 THEN KE = XE + S:REM INCREMENTATION 
61965 IF C = 247 THEN XE = KE + S:REM COORDONNEES ECFA HV: 


N 

bié74 IF C 
X DE SAISIE 
61975 IF © = 246 THEN KE = XE - 56 
&i984 IF C = 244 THEN YE = YE + 5 


61985 IF C = 244 THEN YŸE = YE + 56 
6169 IF C = 241 THEN YE = YE - 5 
61995 IF C = 245 THEN ŸE = YE - 58 
81196 IF C 


OT XECII),YE(IE) 


&1183 IF II: THEN PLOT KE(II-1i,.YECTI-T):DRAW XEGITIY :X 


EUIT),1.6 


61195 IF C=i3 THEN 61600:REM FIN DE SAISIE 
éiiié GOTO 61924 : REM BOUCLE DE SAISIE 


6ié6é REM FIN DE SAISIE 


biié CLS:LOCATE i,1 : FRINT'Fin de saisie":GOSUE 61866 : 


:REM TRACE QUADRILLAGE 
61836 MOVE KE(O),YE(G),1 
61648 FOR JJ = 6 TO IT 
b165à DRAW KE(JJI,VE(JJ) 1 
biééh NEXT JJ 


61665 IF L £: -1 THEN GOSUE 25666:REM Retracer objet 
&i674 LOCATE i,2 : FPRINT'Ca vous va *":G0SÛB 65626 
61696 IF C £> 15 THEN 6IG60:REM REBELOTE 

61691 LOCATE i,2:PRINT'Fatience, je cree l'objet..." 


61692 FOR JJ=6 TO II : KE(JJ)=(XE(IJI-360} 166: VE CI i=t RES 
YE(JJ}-240)/100:NEXT JJ: REM CONVERSION DES COGRDONNES 


ECRAN EN VERITABLES COORDONNEES 


Î THEN INPUT'Cote pian “:21:A$="X": 082" Y" 
66126 IF C = 3 THEN INPUT'Abcisse plan “iXirAS= "NE: QE" HE 


XE(QI=XE: YE(G)=YE: 


67: 


“RES 
-DL+ 
AR: 
DE 
LP 


243 THEN XE = XE - S:REM XE,.YE DE LA CROI PU: 


= 323 AND IL = 12 THEN LOCATE 1.1 :FRINT'Cont :UJ: 
our limite à Î£ segments !':GOSUR 65026 : 6070 61609 
&ii82 IF C = 32 THEN LI=II+i : XE(III=KE: VEUIIISYE : FL HL: 


61699 RETURN 


61746 REM TRACE CROIX DE SAISIE CENTREE EN (XE, ŸE: 


&i718 MOVE KE-10,YE-19 

1726 DRAW XE+10. YE+10,1,1 

61730 MOVE XE-19,YE+16 

6174ù DRAW XE+10,YE-16,1.1 

61799 RETURN 

61800 REM TRACE QUADRILLAGE 
61819 FOR I1 = à TO 250 STEP 5 
bi826 MOVE 11,0 : DRAM 11,509,3 
6i836 NEXT Ii 

Ligaë MOVE 260,0 : DRAW 260,500, 7 
61856 FOR Ii = 354 TD 839 STEP 5 
biBéà MOVE 11,9 : DRAW 11.506,3 
61879 NEXT Ii 

61899 FOR 11 = à TO 156 STEP 5à 
61906 MOVE 4,11 : DRAM 70,11, 
6916 NEXT Il 

61926 MOVE 4,290 : DRAW 708, 200,2 
61920 FOR Ii = 250 TO 5@4 STEF 5ù 
6i94ÿ MOVE 4,11 : DRAM 70,11, 
61956 NEXT Ii 


&iSéé LOCATE 26,1 : FRINT OS:REM indiquer ce qui est e 


n ordonne ecran Dé 
61965 LOCATE 26,7 : FRINT'I" 


n abc155e ecran À$ 


EXPLOITEZ 
VOTRE 
STRAD 


le livre + la cassette 


103 F 00 


Jeux - Gestion 


Education - Domestique 
Impression de documents 


Un best-seller 


Bon de Commande 


SNY: 


3J14 


#ÉE< 
61974 LOCATE 49,12 : PRINT AS:REM Indiquer ce qui est e :6Â: 


à renvoyer à STAMP DIFFUSION, 17, rue Russeil - 44000 NANTES 


Exploitez votre Amstrad. 103 F - Port gratuit. 


Nom __ : = Prénom ___ 


Adresse _ 
Ci-joint chéque de 103 F. 


61972 REM Graduer l'ecran 
61975 LOCATE 28,25 : PRINT"-2" 
61984 LOCATE 26,13 : PRINT'O" 
61999 LOCATE 26,12 : PRINT"i" 
61992 LOCATE 32,12 : PRINT*2" 
61994 LOCATE 12,12 : PRINT'-1" 
61996 LOCATE 6,12 : FRINT-2" 
61997 LOCATE 24,19 : PRINT"-i" 
61998 REM 


i REM DES 4 Mai E7 ( Frogramne F10 } 


2 IF FD=1 THEN 236 


5 SOUND 1,20: CLS:PRINT'Fas d'acces direct a DES":PRINT : 
:FRINT'Je vous renvois sur MODI...":RUN°F9 


1ë CLS 

15 PRINT'MENU PRINCIPAL": PRINT 
26 PRINT'a-Creer un objet" 

36 PRINT'b-Completer un objet" 
46 PRINT"c-Stocker un objet" 
54 PRINT"d-Charger un objet" 


69 PRINT 'e-": PRINT": PRINT at PRINT hs PRINT: FR 


INT =": PRINT" 
76 PRINT "l-Creer une image“ 


86 PRINT" m-": PRINT" n- "2 PRINT "ot: PRINT" p-" 


189 PRINT"q-Quitter" 


195 IF EL$ <> "" THEN LOCATE 33,21: PRINT'Obijet resident 


“LOCATE 22,23:PRINT EL$ 


197 IF Léi-1 THEN LOCATE 31,23:PRINT L+ii" ch. 


198 LOCATE 1,22 


206 GOSUB 65406: REM Saisie caractere 


216 IF C=17 THEN END 
220 IF C£i OR C>i7 THEN 16 


225 IF C = 16 THEN GOSUB 17666:60TD 16 
230 ON C GOSUE 64000,64000,64000, 5000, 2600, 89600, 60 
00, 60060, 60GDO, 60006, &DODD, 77000, PDA 


24ÿ ERA, "+. BA" 

999 GOTO 14 

5499 REM Chargement obiet 

5616 INFUT'Nom de l'objet “;EL$ 
9924 OPENIN EL$ 


5425 INPUT#9,L:REM L'obiet a (L+i) chaines 
5636 FOR 1=6 TO L : REM Pour toutes les chaines allant 


deal 


5946 INPUT #9,N(I): REM Nombre de segments sur chaine 
5059 FOR J=0 TO N(I):REM Pour tous les points de la cha 


ine d'indice Ï 


5060 INPUT #9,XT(I,J3,YTUI,J),2T (I, J) 


53974 NEXT J:NEXT I 
3680 CLOSEIN 
9999 RETURN 


7600 REM CALCUL FARAMETRES VISION 
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61999 RETURN 


65864 REM Saisie caractere 
65616 PRINT:PRINT"Votre choix :° 
65026 C=INKEYS: IF C$="" THEN 65826 


6534 C=AGC(C$) 


65049 IF C:96 THEN C=C-96:G60T0 63535 
65858 IF C£96 THEN C=C-64 


699395 RETURN 


#DE< 
2XF< 
276€ 


RVÉ£ 
PLF< 


HE 
>GE< 
>PF< 
>TG< 
>KH< 
>< 
DE 


DK 
3PL£ 


2AM< 
PNN£ 
FUP< 
20E< 
2YH£ 


7696 CX = X6 - XM : CY = YG - YM : CI = 26 - IH 
7169 DD = SUR (CX#CX + CY4CY 


7116 IF DD = à AND CI : 


OTO 7216 
7124 IF DD = à AND CZ 
OTO 7218 
7136 KI = TN (CZ/DD) 
7146 IF CX = & AND CY 
7156 IF CX = & AND CY 
7i6ÿ TE = ATN (CY/CX) 
7176 IF CX < & AND CY 
7186 IF CX € 6 AND CY 
7198 IF CX + @ AND CY 
72606 IF CX = à AND CY 
214 REM 
7220 REM 


{ 6 THEN TE = 6: EI =Fl 2: 


> @ THEN TE = FI/2 : GÜTO 7216 
& @ THEN TE =-PI/2 : GOTG 7210 


: @ THEN TE = FI + TE 
€ à THEN TE = FI + TE 
= 9 THEN TE = FI 

& à THEN TE = - FI/2 


7236 CT = COS (TE) : ST = SIN (TE) 

7246 CK = COS (KI) : SK = SIN (KI) 

725 XU = CE#CT : YU = CÉAST : ZU=SE 

7268 XV = - ST: YV= CT: 72V=6 

7270 XW = - SEAT : YW = - SEXST : ZW = CE 


7999 RETURN 


12696 REM Objet deja present en memoire 
12995 IF L=-i1 THEN CLS:PRINT'Fas d'objet en memoire, eh *AJ“ 
, farceur !":SOUND 1,54 :FOR TT=1 TO 1646: NEXT TT : GÙ 


TO 19 


6 THEN TE = 4: KI =FI 2: 


Ci 


FUME 
2MME 
3 JN< 
3KF< 
+10 
EVR< 
ALES 
3 JE: 


12429 FOR I = 4 TO L : FOR J = 4 TO NÜI):REM POUR TOUTE N° 
S LES CHAINES ET TOUS LES POINTS DE CES CHAINES 


12676 GOSUB 15690:REM 
12446 NEXT JiNEXT I 
12999 RETURN 


TRACE IMAGE ECKAN 


15606 REM Calcul et trace image 


15644 XL=XT(I,J)-XM 
15054 YLEYT(I,Ji-YM 
15966 IL=ZT(I,J}-ZM 


15499 XA=XL#KU+YL#YU+ZL4ZU 

15196 VA=XL#KU+YLAYV+ZLxZV 

15118 ZA=XL#KW+YLæYW+ZL4ZH 

15121 IF XA=6 AND YA=& AND ZA=6 THEN ZA=6.061 
15123 RO = SQR(YA#YA+ZA#ZA) 

15125 IF XA=4 THEN B=96:G0TD 15127 


ErCES 
FKHE 
OH 
ÉMEES 


15126 B=ATN(RO/XA) : B=E#184/PI 

15127 IF XA:4 THEN B=E+186 

15136 IF YA=6 AND ZA=6 THEN A=96:G60T0 15184 
15i48 IF ZA=6 AND YA :4 THEN A=-S6:G0TO 15184 
15156 IF ZA=6 AND YA‘G THEN A=56:G0T0 15164 
15166 A=-ATN(YA/ ZA): A=A#180/FI 

15176 IF ZA‘ AND YA :à THEN 4=A-i86 

15172 IF ZA £6 AND YA:G THEN A=A+I86 

15174 IF ZA <6 AND YA =8 THEN A=iBé 

15184 K=B4SINCA#PI/ 186: : Y=B4C0S (API I) 
15246 XE=313+X+200/AN:REM COORDONNEES ECRAN 
15258 YE=264+Y+206/ AN 

15264 IF J=4 THEN FLOT XE,ŸE 

15270 IF Ji: THEN DRAW XE,ÿE. 1,4 

13999 RETURN 

27490 REM REFRESENTER UN OBJET 

27845 CLS 

27416 PRINT'REPRESENTER UN OBJET":PRINT 
27024 PRINT:FRINT'a-Übiet en memoire" 

27074 PRINT'b-Dessin par elements" 

27444 FRINT'c-Dessin par bioc":PRINT 


27056 GOSUB 65606 : PRINT : CD=C:REM STOCKAGE TYPE DE D HG: 


ESSIN 
27164 CLS : PRINT'a-Saisie point de vue au clavier" 


27176 PRINT'b-Saisie ecran “:FRINT:GOSUE 65660: CSAISIE= EU: 


C:REM STOCKAGE TYFE DE SAISIE 

27196 PRINT:FRINT'Coordonnees observateur 
27208 INFUT'X= "3 4M 

27218 INFUT'Y=":YM 

27224 INFUT"Z="SIM:FRINT 

27216 FRINT'Coordonnees point vise ::PRINT 

27246 INFUT"X6=": XG 

27254 INPUT 'Y6=": YG 

27266 INPUT"2G=": 16: FRINT 

27274 PRINT'Ouverture angulaire" 

27284 INFUT"20 degres par defaut “:AN$ 

27285 IF AN$="" THEN AN = 36 : GOTO 27356 

27294 AN=VAL (ANS) 

27356 CLS : GOSUE 7444: REM CALCUL FARAMETRES DE VISÉE 


1°: FRINT 


= 


27166 GOSUE 12406: REM CREATION IMAGE DE L'OBJET EN MEM TV: 


OIRE 


27374 SOUND 1,56 : LOCATE 1,1: PRINT'Fressez ‘Return:":16 :CW: 


OSUB 65620:REM SIGNALE LA FIN DU TRACE 

27998 CD=4 

27999 RETURN 

66466 REM S0us-programmes non encore existants 


66916 CLS : FRINT'Sous-programme non encore cree...":60 : 


SUB 65920 

66999 RETURN 

64644 REM PASSAGE SUR MOD 

64999 CHAIN"F9 

65666 REM Saisie caractere 

65919 PRINT:FRINT' Votre choix :" 
6562G CH=INEEYS:IF C$="" THEN 65620 
65819 C=ASC(C#) 

65946 IF Ci96 THEN C=C-Gé6:G0T0 65535 
65054 IF C£96 THEN C=C-64 

65523 RETURN 


3 JN< 


aVRE 
oYTÉ 
:JE<e 


M, Mme 
Adresse 


É- 


Wantaists 


Malins les amstradistes, ils ont enfin trouvé le logiciel de leur 
rêve! 

Vous aussi adoptez le logiciel SÉRIE.2 et découvrez vite la 
COMMUNICATION SANS FRONTIERE... 


Pour moins de 1.000 F vous pouvez désormais vous 
connecter directement sur le réseau téléphonique et trans- 
mettre vos fichiers, programmes, CAO, DAO en toute fiabilité. 
Avec SÉRIE.2, il n'est plus nécessaire d'être un crack en infor- 
matique pour enregistrer, archiver, imprimer, les pages écran 
de votre minitel afin de les consulter HORS CONNEXION cest- 
à-dire : GRATUITEMENT. 


Avec le câble spécial SÉRIE.2 reliez votre ordinateur à votre 
minitel et vous avez immédiatement accès à vos banques de 
données favorites. SÉRIE.2 UNE UTILISATION SIMPLE POUR 
DES APPLICATIONS MULTIPLES... 


Avec SÉRIE.2 exploitez aussi les 2 millions d'adresses profes- 
sionnelles de l'annuaire électronique pour créer vos fichiers 
et les récupérer dans les divers progiciels existanis où 


-encore éditer des étiquettes adresses pour vos mailings. 


SÉRIE.2 UNE EFFICACITÉ MAXIMUM POUR UN COÛT 
MINIMUM. 


SÉRIE.2 vous ne trouverez pas moins cher ailleurs. 
SÉRIE.2 

e Version PC1512 

990 F TIC. 


e Version CPC 464 + DDI, CPC664, CPC 6128, PCW 8256, 
PCW 8512 (nécessite un interface série RS 2320). 


690 F TTC. . 
SÉRIE.2 est en vente à la É 


AVEC SÉRIE.2 : “TÉLÉCOMMUNIQUEZ MALIN !" 


Pour tout complément d'information, retournez ce coupon à : 


. JMN DIFFUSION 
LES CLEMATITES 38410 URIAGE 
Permanence téléphonique : 78 27 97 90 


Code postal 


IMPLEATION 4€ S 2 YON 324 19 287 2 IMPRIMÉ EN FRANCE 


10 Musiquabasic 

20 Bernard FOISOT 160 ENV 7,3,5,2,2,-1,2 

50 170 ENV 8,3,5,2,27,-1,2,10,0,2,13,-1,5 
40 INK O,0:INKH 1,26:INK 2,8:FAFER O:FEN 180 ENV 9,15,1,2,5,0,2,15,-—1,2 

1: BORDER 1 190 ENV 10,3,5,1,15,-1,2 

50 DEFINT a-2:DEFREAL s:MODE 1 200 ENV 11,15,1,2,3,-5,1 

69 DIM son(é):as=i 210 ENV 12,1,15,1,10,-1,1 

70 220 ENV 15,1,15,1,4,-1,1,5,0,1,9,-—1,1 
80 ‘ Definition des enveloppes 230 nenv=1i3%:" nombre d'enveloppes de 
90.” volume definies,a modifier si vous 
100 ENV 1,15,1,2 supprimez ou ajoutez des enveloppes 
110 ENV 2,5,5,2 240 ENT 1,1,10,0 

120 ENV 3,15,1,2,1,-15,1 250 ENT 2,5,2,1,93,-1,2 

130 ENV 4,5,5,2,1,-15,1 260 ENT 3,10,1,1,20,-1,1,10,1,1 

140 ENV 5,15,1,2,15,-1,2 270 ENT 4,10,-1,2 

150 ENV 6,5,3,2,95,—3,2 289 nent=4: nombre d'enveloppes de 


MUSIQUABASICEMEN 


Pour ceux qui n’ont pas envie 
de s'initier à la programma- 
tion du son, mais qui aime- 
raient quand même faire un 
peu de musique ou de bruit. 


Bravo ! Vous venez de mettre au point 
un programme génial, avec de superbes 
animations graphiques. Bref, le nec plus 
ultra en la matière. Mais un détail vous 
tracasse : quelques effets sonores man- 
quent pour une finition parfaite et vous 
avez mieux à faire que d'apprendre le 
BASIC musical qui ne vous intéresse 
absolument pas. 

Ce programme est là pour vous permet- 
tre de trouver quelques sonorités, musi- 
cales ou non, sans fatiguer davantage 
votre cerveau déjà si éprouvé. 


MODE D'EMPLOI 


Vous pouvez modifier les six facteurs qui 
interviennent dans l'élaboration du son. 
L'affichage de celui qui est prêt à être 
modifié est d’une couleur différente. 
Vous changez sa valeur soit avec les tou- 
ches curseur haut ou bas, soit en entrant 
directement au clavier la valeur requise, 
suivie de ‘’RETURN”". Si le nombre choisi 
est hors des limites, un signal sonore 
vous avertira et la valeur précédente sera 
à nouveau affichée. 

La sélection du paramètre que vous dési- 
rez modifier s'effectue soit en entrant 
l'initiale, soit avec les touches curseur 
droite ou gauche. 

L'écoute du résultat s'obtient par pres- 
sion sur la barre d'espace. 

Vous constatez qu'il existe un très grand 
nombre de possibilités de sons, mais 
avec un peu de méthode, de patience ou 
de chance, vous trouverez la combinai- 
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Bernard POISOT 


son qui vous intéresse. 

Il suffira alors de relever les valeurs qui 
sont directement indiquées en confor- 
mité avec les exigences de l'instruction 
SOUND : elles sont dans l’ordre néces- 
saire et dans les fourchettes de valeurs 
autorisées. Notez toutefois que la pre- 
mière variable de SOUND n'est pas pré- 
sente ici : c’est l'ETAT DE CANAL que 
vous fixerez à 135, si vous ne voulez pas 
approfondir les choses. 


Exemple. Les valeurs suivantes : 


Période 200 
Durée 50 
Niveau sonore (volume) 2 
Enveloppe de volume 5 
Enveloppe de tonalité 1 
Période de bruit [e) 


Donneraient la ligne BASIC : 
SOUND 135,200,50,2,5,1,0 


Il faudra, bien entendu, déclarer les ins- 
tructions ENV et ENT dans votre pro- 
gramme, c'est-à-dire recopier les lignes 
100 à 220 et 240 à 270. 

Vous pouvez modifier à votre guise le 
contenu des instructions ENV et ENT et 
même en ajouter ou en supprimer, auquel 
cas il conviendra de modifier le compteur 
nenv (ligne 230) ou nent (ligne 280) du 
nombre d'enveloppes définies. Il peut y 
en avoir 15 pour ENV et 15 pour ENT. 


ANALYSE DU PROGRAMME 


Les diverses initialisations et présenta- 
tions se déroulent de 10 à 470. Les fac- 


teurs nécessaires à la synthèse du son 
sont inscrits dans les fenêtres 1 à 6. 
La ligne 510 saisit les entrées et les 
envoie en 730 si l'entrée est numérique 
ou en 520 sinon. 

Les flèches curseur haut et bas modifient 
la Valeur contenue dans la fenêtre sélec- 
tionnée, repérée par s, puis la nouvelle 
valeur est testée entre 790 et 850 sui- 
vant la nature du paramètre. Une erreur 
conduit en 1020 à un signal sonore un 
peu moins désagréable que le BIP habi- 
tuel du CPC et à la reprise en compte de 
la valeur précédente. S'il n'y a pas de 
dépassement, le nouveau nombre est 
pris en compte et affiché à partir de 910, 
puis retour à la saisie clavier. 

Les flèches curseur droite et gauche, 
ainsi que l'entrée des initiales vont attri- 
buer à s le numéro de la nouvelle fené- 
tre à modifier et faire appel à 950 pour 
‘’éteindre'’ la fenêtre précédente et 
‘’allumer''la nouvelle sélection. 

La barre d'espace conduit à l'écoute du 
son défini par les nombres affichés après 
avoir testé s’il fallait faire appel ou non 
aux numéros d'enveloppes. 

L'entrée directe de la valeur se fait à par- 
tir de 730. Une chaîne de caractères est 
créée en mettant bout à bout toutes les 
entrées numériques et affichée dans la 
fenêtre sélectionnée jusqu'à l'envoi de 
RETURN. Cette chaîne est alors transfor- 
mée en un nombre qui subit les tests 
habituels en 790. 


Les définitions des diverses enveloppes 
ne sont qu'indicatives, il vous est tout 
à fait possible d'en ajouter ou de les 
modifier. 


tonalite definies,a modifier si vous 
supprimez ou ajoutez des enveloppes 


290 
500 ” Fenetres d'affichage 
310 

320 FOR i=1 TO 6 

330 WINDOW#i,30,38,3+2%i,7+2#i 


340 NEXT 

350 ‘ 

360 ‘ Fresentation et 
valeurs de depart 

570 ‘ 


580 DATA periode p,100,duree d,0,niveau 
sonore initial n,0,enveloppe de volume v 
.si,enveloppe de tonalite t,i1,periode de 
bruit b,0 
390 FOR s=1i TO 6:READ t#,son(s) 
400 LOCATE 2,:3+2%s 
410 FRINT t$; STRINGS(23-LEN(tS),".") 
420 FRINT#s,son(s) 

30 NEXT 
440 LOCATE 1,20:FRINT'"'SELECTION du param 
etre:initiale ou ";CHR$(242) ; CHR$ (243) 
450 FRINT'REGLAGE par "3; CHR$ (240) ; CHR$ (2 
41)3;" ou entree de la valeur" 

460 FRINT'ECOUTE DU SON:barre d'espace" 
470 s=1:GO0OTO 950 


480 

490 ‘ | Saisie des choix 

500 ‘ 

910 a$=LOWERS(INÉEYS):1F a$b="" THEN 510 
ELSE IF (a$:"/" AND a$<":") OR a$="-" TH 


EN nomb$=a$:GOTO 7:20: traitement diffe 
rent suivant un chiffre ou une lettre 
920 

930 ‘ modification de la valeur 

540 

590 IF a$=CHR$&(240) THEN son=son(s)+1i:6G0 
TO 790 

960 IF a$=CHK$(241) THEN son=son(s)-1:60 
TO 790 

570 

580 ‘ choix du parametre a modifier 
590 | 
600 IF a$=CHR$(242) THEN s=s-1:1F s*:O TH 
EN 950 ELSE s5=6:GOTO 950 

610 IF a$=CHR$(247) THEN szs+i:1F s<7 TH 
EN 950 ELSE s=1:G0OT0 950 

620 IF a$="p" THEN s=1:GOTO 950 

620 IF a$='"d" THEN s=2:G0T0O 950 

640 IF a$="n" THEN s=35:GOTO 950 

650 IF a$="v" THEN s=4:G0OT0O 950 

660 IF a$="t" THEN s=5:GOTO 950 

=é: GOTO 950 


670 IF a$="b" THEN 5 

680 IF a$=" " THEN 870 

690 GOTO 510 

700 ‘ 

719 ‘ entree directe de la nouvelle val 
eur 

720 

7:20 CLS#s:FRINT#s,nomb$ 

740 a$=INKEYS:1IF a$="" THEN 740 ELSE IF 


a$=CHR$ (17) OR a$=CHR$(32) THEN son=VAL( 
nomb$):GOTO 790 
750 nomb$=nomb$+a$:GOTO 730 


760 

770 tests de validite des valeurs 
780 ‘ 

790 ON s GOTO 800,810,820,830,840,850 
800 IF son:4095 OR son“O THEN 1020 ELSE 
910 

810 IF son:32767 OK son“-3:2768 THEN 1020 
ELSE 910 Le 

820 IF son:15 OR son<O THEN 1020 ELSE 91 
O 

830 IF son*nenv OK son <O THEN 1020 ELSE 
910 | 

840 IF son=0 OR soni-nent OR sonnent TH 
EN 1020 ELSE 910 

850 IF son:31 OR son“:0 THEN 1020 ELSE 91 
Le) 

860 ‘ test d'utilisation de ENT et ENV 
870 IF son(4)=0 AND son(5)=0 THEN 1260 
880 IF son(4)=0 THEN 1210 

890 IF son(5)=0 THEN 1160 

900 GOTO 1110 

910 Sson(s)=son 

920 ‘ 

950 ‘ affichage dans les fenetres 

940 ‘ 

950 FAFER#as,0:CLS#as:FRINT#as,son(as): 

remet en couleur normale 

960 FAFER#S,2:CLS#s:FRINT#S,son(s):" ch 

ange la couleur de la fenetre selectionn 

ee 

970 asz=s 

980 GOTO 510 

990 ‘ 

1000 ‘ sonnerie d'erreur 

1010 ‘ 

1020 SOUND 155,200 

1070 SOUND 7,300 

1040 CLS#s:FRINT#s,son(s) 

1050 GOTO 510 


1060 

1070 ‘ emission du son 
1080 ‘ 

1090 ‘ avec les 2? enveloppes 
1100 


1119 SOUND 135,son(1) ,son(2) ,son(3),sont( 
4) ,son(5) ,son(é) 

1120 GOTO 510 

1130 ‘ 

1140 ‘ sans ent 

1150 

1160 SOUND 135,son(1),son(2) ,son(5),sont( 
4),,son(é) 

1170 GOTO 510 

1180 ‘ 

1190 sans env 

1200 ‘ 

1210 SOUND 135,son(1),son(2),son(5),,son 
(5) ,son(6) 

1220 GOTO 510 

1270 

1240 sans env ni env 

1250 ‘ 

1260 SOUND 135,son(1),son(2) ,son(3),,,so 
n (6) 

1270 GOTO 510% 
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ANTI-ERREU 


Grégory NOE 


Il est difficile de taper un programme 
d'une revue sans commettre d'erreurs |! 
Quand les erreurs sont signalées (Syntax 
error in., Line does not exist in...) la cor- 
rection est facile puisque la ligne est indi- 
quée, mais lorsqu’au ‘‘point de vue’’ du 
CPC le programme est correct, il peut en 
être tout autrement pour le lecteur : 

Si le fonctionnement du programme ne 
correspond pas vraiment au programme 
original, alors il est impossible de retrou- 
ver l'erreur commise, à moins de com- 
parer les lignes de votre programme avec 


celles du journal mais c'est très long et 
on risque de passer sur une erreur sans 
la voir. 

C'est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas Vos erreurs. 

La frappe d’un programme de votre jour- 
nal favori (CPC) terminée, vous faites 
“RUN”, et là vous corrigez toutes les 
erreurs signalées par le CPC en vous 
référant au journal pour comparer. Si 
malgré cela, il ne tourne toujours pas sui- 
vez cette procédure : 


— Sauvez votre programme en ASCII 
grâce à l'instruction : Save‘‘nom. 
prog'',A 

Puis, si vous êtes sur K7 rebobinez la 
bande jusqu’au début du fichier ; 

— chargez Anti-Erreurs ; 

— entrez le nom de votre programme et 
insérez le support où il se trouve (K7 ou 
disquette). 

Après quelques secondes les numéros de 
lignes vont défiler. Vous remarquerez 
qu'à chaque ligne correspond un code de 
2 lettres sous cette forme : >XXK, 
c'est ce code qui va vous permettre de 
savoir d'où proviennent les erreurs. Pour 
cela il faut que vous compariez les codes 
du journal à ceux de l’écran. Si un code 
diffère, notez sur papier le numéro de 
ligne qui correspond à ce code. Conti- 
nuez ainsi jusqu'à la fin du listage. 

Le défilement terminé, rechargez votre 
programme et corrigez les lignes que 
vous avez notées en comparant avec le 
journal. Faites ‘’RUN'" et, oh |, miracle |, 
ça marche. 

Attention : lors de la frappe. du pro- 
gramme à traiter, n’omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte, et bien sûr 
ne tapez pas les codes de contrôle. 


NB. la ligne 480 contient le numéro de 
canal O pour l'écran ou 8 pour l'impri- 
mante. 


PROTÉGER VOTRE AMSTRAD 


TOUS LES SACS ET HOUSSES SONT ADAPTÉS A CHAQUE TYPE DE MATÉRIEL ET LES PASSAGES DE CABLES SONT PRÉVUS. 


L 


Sac pour Amstrad (clavier) 
PC 464[16640 61280 PCW 8256] 
oloris: bleu, gris ou sable 

rix : 


Sac pour moniteur Amstrad mono- 
chrome [1] couleur. {1 
Coloris: bleu, gris ou sable. 


[] Housse pour Amstrad (claier) 
CPC 46406640 612801PCW 825671 
Coloris: beige, blanc, bordeaux, noir, 


130 F TTC 


[ Housse pour moniteur Amstrad. es 


Coloris: beige, blanc, bordeaux, noir, 


130 F TTC 


Pochettes disquettes 3” ou 3,5” 
pour 1 disquette 29 FTTC 
pour 6 disquettes .... 116 F TTC 
pour 10 disquettes 150 FTTC 
pour 32 disquettes .. 200 F TTC 
Coloris: gris, bleu ou sable. 


Les sacs pour claviers AMSTRAD 464 - 664 - 6128 comprennent 1 poche pour le clavier plus 1 autre du même volume pour y ranger les accessoires. 
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17, rue Russeil - 44000 NANTES 


ZARD Creations 


rayez les mentions inutiles. 


Signature: 


POUR COMMANDER: Retournez-nous cette publicité en cochant le ou les pro- 
duits que vous désirez recevoir et en remplissant le bon ci-dessous. Pour les coloris, 


© Port PTT à ajouter au montant de votre commande: 25F 
@ Joindre votre règlement par chèque ou mandat à votre commande. 


Prénom 


LEUR EH HE HE HE HE HE 6 HE HE He He 

DE ‘4 # 

FO ‘+ ANTI —- ERREURS * 

4 ‘# # 

EN A HEC HE EE HE HE HE HE EH 6H EH 

GE * 

75 ‘(c)CFC & GREGORY NDE 1987 

86 

96 ON ERROR GOTO 966 

19% MODE © 

119 DIM g$(2%) 

126% FOR Led TO 22:READ g#:g#(l)=qé:s 
NEXT 

13% ‘ ATTENTION LA LIGNE DE DATA CI 


“DESSOUS NE CONTIENT FAG 
LETTRES DE L'ALFMHA-BET 
14% DATA A,B,C,D,E,F,G,H, JE, L MN, 

FGF, TU, VW, X,Y,Z 

156 ‘  ANTI-EUG FICHIER 
164 IF FEEE (HIMEM+1) 2255 
17% OFENDUT “cpc" 

MEMORY HIMEM-2 
CLOSEOUT 

FOHE HIMEM+1,255 
DEFINT A-Z 


TOUTES 


LES 


THEN 16 


LEE 


BORDER 6:1INE @,12:1INE 
FER © 
MOVE 6,16: DRAW 656, 16 


1,16:FEN 1 


294 FRINT TAB(CET) "ANTI-ERR 

E OU OK G" . 

20 MOVE 6,285: DRAW 656,285 

274 LOCATE 18,25$:FRINT'CFC REVUE DU 
STANDARD AMSTRAD ET SCHNEIDER" 
286 WINDOW 1,86,2,27 

294 m$ér'"Realise par Gregory: NOE" 

206 fun 

316 FOR ii TO LEN(m#) 

220 f$=f#4+MIDSE Cm, i, 1) 

250 LOCATE 76-1,5:FRINT {$ 

546 FOR tel TO 166 

2956 NEXT E,i 

F6 
RE 

86 

290 LOCATE €, 1: FRINT'ENTREZ LE NOM 


DU FICHIER : : 
496 INPUT UNE 


Un 
# 


419 LOCATE %,%:FRINT'TANT QUE LE LI 
STAGE N'EST FAS TERMINE" 
454 LOCATE 5,5:FPRINT'NE FAS ARRETE 
À LE MAGNETOFHONE OÙ NE" 
4% LOCATE 2,7:PRINT'FAS SORTIR LA 


DISQUETTE" 
44 LOCATE 3,16:FPRINT'PRESSEZ UNE T 
OUCHE FOUR LA LECTURE" 

45% CALL SERRES 

46 OFENIN “'"+4n$s 


476 CLS: FRINT'TRAITEMENT EN COURS... 


cart CANAL DE SORTIE 

LINE INFUT#9,b$:a$=UFFERS (b#) 
IF caf: THEN GOSUE 916 

IF INFEY(66)=6@ THEN STOF 


CALCUL DE LA CLE DE CONTROLE 


a=6 

FOR i=1 TD LEN(a#) 
LE=MIDS (a$,i,1) 
IF 1$=CHRS (ED 
aratASC(1#) 
NEXT 
CeINT(a/2E%) 

pa (cx2i) 

&E6 CE=GS (F) 

az 

FOR i=1 TO 6 
666 LEEMIDE(aS, 1,1) 
IF 1#$£"@" OR 14:"9" THEN 760 
ligeli$+1$:ara+VAL(1#) 

NEXT 

CeINT Ca’ 

pra (CkTT) 

CéeCS+GS (CF) 


THEN 666 


IF caf: THEN 756 ELSE 77% 
FRINT 1i$3:TAB(16@) USING "xA\\é"s 
c$ | 

F6 li$="":GOTO 846 

778 Li$="" Is PRINT#ca, LEFT$(b#,26)3T 
ARCÇEZ) USING M"MiAketecé ; 

786 IF LEN(DbH)2E6 THEN 646 

79% fagzi 

666 bD=MIDS (b$,21,LEN (b#)) 

816 FRINT#cCa, LEFTS(b$,:6@) 

926 IF fg=1i AND caf:8 THEN fg=6:60S 
UE 916G:G0OT0O 8:6 

854 GOTO 786 
84% IF EOF=-1 THEN CLOSEIN ELSE GOT 
O0 496% 

656 CALL SBRGE: FRINT TAB(S56) 
OUCHE, .. ": CALL 8BBOS 

864 CLS: FRINT'MAINTENANT RECHARGEZ 
MiNF#3" ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NOTEES,." 

87% END 

684 ‘TRAITEMENTS DES ERREURS 

896 : 
960 IF ERR=2S THEN CLS:FRINT CHRS (7 
)ICHR$S (24) ; "FICHIER NON ASCII": CHRS# 
(24): END ELSE CONT 

919 com=com+i:IiF com:1i9 THEN CALL & 
BBO3S: FRINT TAH(5G) "UNE TOUCHE..." 
CALL $BBGS: COM=1 

929 RETURN@ 


"UNE T 
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SAUAMAC-O MPUTE NS 
9 Fue Charkt 93700 ERAMY 
[Ü Du Mardi au Samedi 
48999 81 10h/Bh - 14h30/19h30 
SAV miCrO ÉCUÉES MATQURS service rapide 


8) ON 464 cukur DNF 
# Etre M0 F 


== (PC CDS couleur 3990F 
 |_)] CC 608 menccirone 2990 F 
Cadeau SVHC : 1 joystick + 4 Jeux avec chaque appareil 
Disc 3": 30Funite Joystick Quickshot? : 65 F 
Grand choix de Logiciels a partir de 30 F plus 


DITES-MOI 
TOUT ! 


Votre avis nous intéresse ! 


D/ remarques, des 
MY suggestions ou des 
À critiques à formuler 
ŸY concernant le con- 


Vous souhaitez 
voir traiter un sujet 
Y)._ particulier dans un 
, prochain numéro 
‘+ AA KR de la revue. 
L'équipe rédactionnelle de CPC est 
à votre écoute 24 heures sur 24, 
l'es à son serveur télématique. 
omposez le 3615, code d'accès 
MHZ, choix Messagerie, boîte CPC 
REDAC. 


toutes les nouvealites chaque semaine 


2 
t F'* À 


QUPATELS 09168: PAX EXCEPTANNES 
4 CHDS 4YFH 

DCHDDD CROFET 

PCHDHD SCNFIT 


ne” puis 


BON DE COMMANDE CLASSEUR (port inclus) 


NOM Prénom 


Adresse 


Code postal 


Je désire recevoir 


[| Classeur(s) THEORIC : 80F [|__| Classeur{s) CPC : 60F 
[| Classeur(s) AMSTAR : 60 F [| Classeurts) MEGAHERTZ : 80 F 
[| Classeur(s) PCompatibles Magazine : 60 F 


Signature 


Ctjoint chèque de F aunomdes Editions SORACOM - La Haie de Pan - 35170 BRUZ 
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GENERATEUR 
DE SPRITES 


LES COMMANDES DU MENU 


° CHARGER UNE TABLE 


Il faut, bien sûr, en avoir créé une et 
l'avoir sauvegardée. Après avoir 
demandé confirmation, le programme 
vous demande le drive à utiliser, puis 
affiche le catalogue. Si vous vous êtes 
trompé de drive ou de disquette, 
l'opération sélection-drive affiche- 
catalogue peut être répétée ad nauséam. 
Notez que toute erreur de chargement ou 
de sauvegarde renvoie au menu 
principal. Au cas où, malgré les options 
de confirmation vous seriez égaré dans 
une de ces options, tapez juste ENTER 
quand le programme demande le nom de 
fichier. Le ‘’bad command’ vous 
renverra au menu principa. 

Vous devrez aussi indiquer au 
programme, de quel type (chantier ou 
travail) est la table à charger ; avant de 
lui donner le nom du fichier. Si le type 
est incorrect ou qu'il ne s’agit pas d'une 
table : retour au menu (à moins que le 
hasard fasse que le nom erroné 
corresponde à un fichier répondant aux 
spécifications du précédent paragraphe). 
Dans ce cas, heureusement peu 
- probable, grosse surprise ! 


2eme PA OR T ll 


Michel Maigrot 


La liste de la table est affichée avant le 
retour du menu. 


e LISTER UNE TABLE 


Si une table est en mémoire, la liste 
produit : 

— le nom de la table : (SANS NOM) si 
nouvelle table 

— le nom de chaque sprite : si vous avez 
pris la peine de les nommer 

— le mode d'écran dans lequel a été 
conçu le sprite 

— le type de sprite : normal N ou MV, 
MH, MD si sauvé en miroir 

— l'occupation mémoire en octet : y 
compris les 5 octets de données (mode 
écran 1 oct. Long 1 oct, Type 1 oct. 
Haut 2 oct.) 

— l'adresse du premier octet occupé par 
le sprite. 

— les encres attribuées aux numéros de 
stylos : les encres utilisées par le sprite 
apparaissent en vidéo inverse et sont 
précédées d'un astérisque. 

Il est possible d'imprimer la liste. Le 
programme ne génère aucun code de 
contrôle imprimante. En cas de besoin, 
activer ces codes dans le loader basic. 
La liste est imprimée comme elle se 
présente à l'écran. (Vidéo inverse 
exceptée !). 


e CREER UNE TABLE 


Si une table est déjà présente, elle sera 
effacée par cette option. Une 


confirmation est demandée. Pour le 


reste, voir L'EDITEUR. 


° COMPLETER UNE TABLE 


Comme ci-dessus, mais la table en cours 
est conservée. 


e AFFICHER LES SPRITES 


— TOUT : affiche successivement du 1°" 
au dernier sprite. À chaque affichage, les 


données concernant le sprite (adresse, 
taille etc.) sont précisées. Dans le cas 
d'un sprite sauvegardé en miroir, 
l'affichage se fait en 2 fois (presser une 
touche pour la suite). Le miroir s'affiche 
au milieu de l'écran. Le sprite d'origine 
en haut à gauche. 
— A PARTIR DU NUMERO : Idem que ci- 
dessus mais depuis le numéro indiqué 
jusqu'à la fin. 
— RECHERCHE PAR NOM: 3 possibilités 
1- nom : affiche le sprite de nom ‘’nom”" 
2 - nom* : affiche tous les sprites dont 
le nom commence par ‘‘nom'' 
3 - ENTER : affiche les sprites non nom- 
més. 
Un appui prolongé sur ESC permet de 
revenir au menu en cours d'affichage. 


+ SUPERPOSER LES SPRITES 


Si vous prévoyez une animation par 
superposition, cette option vous permet 
d'effectuer un premier test. Elle affiche 
successivement les sprites de N1 à N2. 
Les flèches du curseur haut et bas 
accélèrent ou ralentissent la vitesse de 
défilement. ESC maintenu permet de 
quitter l'option. 

Restrictions : la série de sprites doit être 
éditée dans l'ordre prévu pour 
l'animation. Les grilles d'édition 
successives doivent être de taille 
identique et les sprites centrés par 
rapport à la grille pour obtenir un résultat 
cohérent. 


° SUPPRIMER UN SPRITE 


Après confirmation, donner le numéro du 
sprite à supprimer. Celui-ci est affiché 
puis effacé après une seconde 
confirmation. La table est recalculée 
automatiquement par le programme. 


° MODIFIER UN SPRITE 


Si vous répondez non à la question 
‘’REINITIALISER LES ENCRES‘, les 
encres affectées aux stylos seront celles 
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de la dernière palette créée. Sinon 
donnez le numéro d'un sprite déjà créé. 
C'est la palette utilisée par ce sprite qui 
servira de référence. Ceci est fort utile 


et devra souvent être utilisé 
conjointement avec l'option purge. 
Ensuite le programme affiche le sprite et 
demande confirmation. Si oui, vous avez 
la possibilité d'agrandir la grille (pas de 
la réduire) et de choisir si la grille est 
dessinée ou non. Ceci fait, vous passez 
en mode édition. (Voir éditeur) 

En sortie d'éditeur, 3 options sont 
possibles : 

1.- Ranger à la même location : le sprite 
d'origine est recouvert par la 
modification. Si le nouveau sprite est de 
taille différente, la table est recalculée par 
le programme. 

2. - Ranger en fin de table : le résultat 
de la modification vient compléter la 
table. 

3. - Autre location : le sprite modifié est 
rangé au numéro N. L'ancien sprite de 
numéro N prend le numéro N + 1 et idem 
pour tout sprite > N. 


NOTE : SURGENE ne permet pas de 
copier ou déplacer un sprite directement 
dans la table. Pour ÿ parvenir : 

— déplacer. Demander la modification 
du sprite N que vous souhaitez déplacer. 
Ne modifiez pas la grille. Sortez de 
l'éditeur (CTRL-S). Par l'option 3, rangez 
le sprite en N1. Ceci fait supprimer le 
sprite N par l'option 6 du menu. 

— Copier. Comme ci-dessus sans 
supprimer le sprite N. 


+ SAUVEGARDER UNE TABLE 


Mêmes opérations que pour le 
chargement. La table est systématique- 
ment sauvegardée sous la forme chan- 
tier. 


° PURGER UNE TABLE 


Rassurez-vous, le nécessaire se trouve 
dans le programme et non en pharmacie. 
L'opération consiste à transformer une 
table ‘‘chantier’’ en une table ‘‘travail””, 
qui pourra être utilisée dans un program- 
me. 

En premier lieu, il vous faudra répondre 
à la question : ‘’ Conserver un seul mode 
(O/N)'' et préciser le mode d'écran que 
vous désirez conserver. À la fin de 
l'opération, il ne restera dans la table que 
les sprites conçus dans le mode précisé. 
Suit un test qui informe du bon résdultat 
de l'opération. Si vous avez répondu 
NON alors que la table contient encore 
différents modes d'écran, le même test 
vous en informe et renvoie au menu. 
Le test suivant porte sur les encres. En 
effet, si par exemple le sprite numéro 1 
utilise l'encre 3 dans le stylo 2 et le sprite 
numéro 2 l'encre 12 dans le stylo 2, il 
faudra faire un choix car l’un des sprites 
ne sera pas dans la couleur prévue. Le 
‘’contrôle de compatibilité des encres” 
vous informe des différences éventuel- 
les. En cas d'incompatibilité de couleur, 
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deux choix possibles : 

O - Continuer. Dans ce cas, les encres 
affectées aux stylos seront celles 
données au sprite numéro 1 et sprites 
auront une couleur différente de celle 
prévue à l'origine. 

N - Annuler. Vous retournez au menu 
pour rectifier la coloration de votre sprite 
par l'option modification. C'est là que 
l'opération réinitialiser les encres prend 
tout son sens. Répondez systématique- 
ment OÙI et sélectionnez de préférence 
la palette du sprite numéro 1. Ne soyez 
pas surpris si l'affichage présente une 
couleur différente car le changement est 
déjà pris en compte. Dans l'éditeur, 
reprenez les couleurs nécessaires dans 
la palette proposée en haut de la table. 
(NE MODIFIEZ SURTOUT PAS LES COU- 
LEURS DE LA PALETTE, vous provoque- 
riez de nouvelles différences). Ceci fait, 
remplacez l'ancien sprite par le nouveau 
(ranger même place). Une fois toutes les 
modifications effectuées, reprendre l'op- 
tion purge. 

Une option de suppression spéciale est 
proposée. Si elle est activée, les sprites 
restants défilent un à un et le programme 
demande si le sprite concerné doit être 
supprimé. Pour sortir de cette option, 
maintenir ESC appuyé simultanément 
avec N en réponse à la question. 

Une fois les conditions ci-dessus satis- 
faites, la liste des sprites est affichée (et 
peut être imprimée) et suivie d'une 
information complète sur la structure de 
la table. Vous pouvez ensuite la sauve- 
garder sur disquette. 

Cette table peut être rechargée et 
retravaillée par le générateur de sprites 
mais les noms des sprites sont défini- 
tivement perdus. Préciser qu'il s’agit 
d'une table ‘‘’travail”’ au moment du char- 
gement. 


e CONCATENATION DE TABLE 


Un terme bien barbare pour dire qu'une 
table s'ajoute à une autre. Vous pouvez 
additionner autant de tables que la place 
mémoire le permet. Attention, si vous 
dépassez les limites, un plantage est 
possible. 

Cette option sauvegarde la table en 
mémoire sous forme de fichiers provi- 
soires. Ensuite l'option de chargement 
est présentée. La table donnée sera alors 
ajoutée après affichage de la liste et 
confirmation. Si l'option n'est pas 
confirmée la table d'origine est restaurée 
et le programme revient au menu. 


° RETOUR AU BASIC 


Ça peut toujours servir. Le code reste en 
mémoire et peut être rappelé à tout 
moment. Attention, l'état clavier (speed 
key & répétition est réinitialisé). 


° CAPTURE SPRITE 


Cette option vous permet de prélever 
une zone exploitable par générateur de 
sprites dans une image écran quelcon- 


que. Le chargement de l'image se fait 
comme pour une table. Le programme 
demande le mode d'écran dans lequel a 
été conçue l'image. Si vous l’ignorez, 
donnez un mode au hasard, vous avez 
une chance sur deux (les images en 
mode 2 sont rares) de tomber juste. En 
cas d'erreur, CTRL+R vous renvoie au 
menu. 

Un cadre apparaît vers le milieu de 
l'écran. Il est calibré à la taille maximum 
admise par la grille du générateur. Les flè- 
ches du curseur le déplacent, SHIFT + 
flèches curseur varient les dimensions de 
la zone de capture. ENTER vous propose 
les options de capture, il est possible de 
nommer le sprite. CTRL + R = retour au 
menu principal à tout moment. 


RENOMMER UN SPRITE 


Permet de changer le nom d'un sprite ou 
de renommer les sprites d'une table 
travail. 


Les options, créer table, compléter table 
et modifier sprite permettent l'accès du 
mode édition. 

Vous devrez d'abord préciser : 

— le mode d'écran dans lequel sera affi- 
ché le sprite 

— la taille de la grille. Les limites sont 
indiquées dans le menu éditeur. L'éditeur 
travaille sur tout l'écran quelle que soit 
la taille de la grille. 

— afficher ou non la grille. Selon votre 
goût. Pour de grandes tailles de grille, le 
déplacement du curseur est mieux visi- 
ble si la grille n’est pas dessinée. 

En cas de paramètres de grille excessifs, 
le programme renvoie au menu. 


LES COMMANDES 
DE L’EDITEUR 
+ POUR DESSINER LE SPRITE 


— Les flèches déplacent le curseur sur 
la grille. 
— SHIFT + les flèches : le curseur se 
déplace en laissant une trace de la cou- 
leur sélectionnée sur la palette. 
— CTRL + les flèches : le curseur se 
déplace en laissant la trace du stylo O 
(Efface). Notez que pour un bon usage 
des tables de sprites dans vos program- 
mes, PAPER =0O. 
— COPY : valide un pixel avec le stylo 
sélectionné dans la palette. 
— ESPACE : efface un pixel avec stylo O 
— TOUCHES DU PAVE NUMERIQUE : 
5 : remplit uune ligne complète 
5 + SHIFT : remplit une colonne 
complète - 
5 + CTRL : remplit toute la grille 
1-4-7-8-9-6-3-2 : déplace le curseur 
dans la direction physique de ces tou- 
ches et valide un pixel sur 2 (diagonales 
comprises). 
Les mêmes + SHIFT ou CTRL : idem 
mais l’incrément est augmenté de 1 ou 
2. 


— CTRL + W: remplit dans une 
colonne, tous les points de la même cou- 
leur que celle située sous le curseur. Si 
des points de couleur différente se trou- 
vent sur la trajectoire, ils sont laissés tels 
quels. 

— CTRL + A : idem mais sur une ligne 
— CTRL + X : remplit une colonne. Le 
remplissage s'arrête dès qu'une couleur 
autre que celle située sous le curseur est 
rencontrée. 

— CTRL + D : idem sur une ligne 


e USAGE DE LA PALETTE 


Tous les sprites d'une table destinée à 
être exploitée dans un programme doi- 
vent obligatoirement utiliser une même 
palette. || est donc fortement conseillé 
de réfléchir avant de créer un ensemble 
de couleurs. Sinon, lors de la purge, vous 
aurez à jongler avec l'option modification 
comme expliqué plus haut. 

Les quatre nombres affichés en haut à 
gauche de l'écran correspondent au stylo 
et à l'encre sélectionnés. Pour accéder 
à la palette, appuyer sur C. Les flèches 
horizontales du curseur permettent la 
sélection du stylo, les flèches verticales 
changent la couleur d'encre du stylo 
sélectionné. ENTER renvoie à l'édition. 


° VISUALISER LE SPRITE 


Appuyer sur V pour voir le sprite se des- 
siner en haut et à gauche de l'écran. Un 
bip est produit en fin d'affichage. ENTER 
renvoie à l'éditeur en laissant le dessin 
affiché, DEL efface le dessin. Il est fré- 
quent de voir le dessin empiéter sur la 
grille. Dans ce cas, il est préférable d'ef- 
facer le dessin avant de retourner à l’édi- 
teur. Sinon des pixels parasites peuvent 
apparaître à la prochaine demande de 
visualisation. Ces éventuels parasites ne 
sont pas pris en compte par les options 
de sauvegarde et ne sont pas vraiment 
gênants. La sélection de la pelette 
entraîne l'effacement de la visualisation 
en cours. 


e DEPLACER LE DESSIN 


— W : déplace le dessin vers le haut 
— X : le déplace vers le bas 

— À : à gauche 

— D : à droite 

— CTRL + H : inversion horizontale de 
tout le dessin (pivote de 180 sur l'axe 
vertical) 

= CTRL + V: inversion verticale de 
tout le dessin 


SORTIR DE L'EDITEUR 


— CTRL + R : renvoie auu menu sans 
autre forme de procès. Le sprite en cours 
est perdu. 
— CTRL + S : envoie vers les options 
de sauvegarde. A savoir : 

— confirmer, si non retour à 
l'éditeur 

— grille complète (O/N) ? - Si non, 
les lignes et colonnes inutilisées (stylo O) 


ne sont pas prises en compte par la sau- 
vegarde. Si oui, les lignes et colonnes 
vierges sont considérées comme partie 
intégrante du sprite. 

— le mot NORMAL s'affiche dans la 
fenêtre du texte. Utilisez les flèches ver- 
ticales du curseur et vous verrez appa- 
raître : MIROIR HORIZONTAL - MIROIR 
VERTICAL - MIROIR DOUBLE. 

ENTER valide l’une de ces options. NOR- 
MAL sauve le sprite tel quel, les autres 
options le sauvent sous la forme d’un 
miroir. Les options d'affichage du pro- 
gramme le présenteront sous la forme 
initiale et sous sa forme miroir. 

Les options ‘‘miroir’’ ne modifient pas le 
sprite. || est sauvegardé comme un sprite 
normal. Seul un des 5 octets de données 
est modifié pour le différencier des spri- 
tes normaux. Seul un programme spécial 
incluant des routines miroirs pourra le 
restituer en tant que tel. Le pourquoi et 
le comment vous seront expliqués d'ici 
quelques numéros de CPC. 


ILE PROGRAMME SGMOVTAB 


L'adresse de départ 21856 d'une table 


19 ‘ ### SGDRELOC ##4 


‘’travail”" est loin d'être idéale pour la 
conception d'un programme efficace. 
SGMOVTAB vous permettra de déplacer 
et sauvegarder vos tables de sprite à un 
emplacement optimum. Dans 95% des 
cas, ce sera l'adresse la plus hautre pos- 
sible indiquée par le programme. Atten- 
tion au buffer drive qui pourrait bien effa- 
cer la table s'il n’est pas initialisé correc- 
tement. Les données essentielles de la 
table sont affichées et peuvent être 
imprimées. 

Une table déplacée ne peut plus être lue 
par le générateur de sprites. Conservez 
donc toujours une copie de vos tables. 
En cas de besoin le même programme 
décode les en-têtes de fichier binaires, 
donnez lui simplement le nom du fichier 
à décoder au lieu d’un nom de table. 


Si vous ne pouvez profiter de ce pro- 
gramme faute de drive, consolez-vous. 
Les articles suivants comporteront une 
petite table de sprites sous forme de 
DATAS qui vous permettra d'utiliser les 
routines présentées. L'essentiel reste 
encore dans l'ombre ? Patience, le voile 
se lèvera dans les prochains numéros. 
(J'entends déjà le palan grincer...) 


SUB“ 


26 ‘ # SAUVEGARDE DE SURGENE SUR DISQUE À SA VERITABLE JC“ 


LOCATION MEMOIRE (1900) + 
LISTING 39 MODE 1:0PENOUT"x":MEMORY 999: CLOSEOUT 
49 PRINT"CHARGEMENT SURGENE 20660" :LDAD"surgcode", 1000 


#RD< 
?YE£ 


99 PRINT'SAUVEGARDE SURGENE  1999":SAVE"surgcode",b, 10û 


à, 21078 


68 PRINT'PRESSER UNE TOUCHE POUR TEST':CALL &BB46:CALL 


1906 


19 ‘ #### SURGENE LOADER POUR SURGCODE VERSION DEFINITI >UE< 


VE (LOGEE EN 1906) #### 


LIS ING 26 OPENOUT"D":MEMORY 999:CLOSEOUT : LOAD"surgcode" 
T 36 ‘*x## En cas de besoin inclure parametrage imprimante :WD< 


?QC< 


49 BORDER 16:FÜR I1=i TO 15:READ A,B:KEY DEF A,B:NEXT:GP JE< 


EED KEY 19,1:CALL 1080 


96 LOCATE 1,1:KEY 136,"call 1600"+CHR$(13):GPEED KEY 10 >HF< 


52 


4e DATA 16,1,11,1,3,1,20,1,12,1,4,1,13,1,14,1,59,0,67,0 >LB< 
,61,9,63,0,55,0,34,0,44,0 


LISTING 


1 ‘ PROGRAMME DE RELOCATION DES TABLES +1B{ 
2 ‘ DE SPRITES EDITEES AVEC SURGENE . 
1: 


?DC< 
?YD< 


19 MODE 2:MEMORY 9000:G0SUB 10000: BORDER 10:MINDOW#1,1, >NB< 
89,5, 24 
26 CLS:CAN=1: IMP=0: TABLE=1: INK 1,26: INK 0,0: "ON ERROR G >HC< 
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OTO 466 


36 PRINT:FRINT" PROGRAMME DE DEFLACEMENT EN MEMOIRE D'U >AD< | 378 : sKL< 
NE TABLE DE SPRITES .":PRINT" (Ci. M. MAIGROT Juin 1987 386 PRINT#1:FRINT#i," RELOGER CETTE TABLE 7 (O/N)":G06Û :ŸM: 
." E 486: IF A$="N'THEN 460 
4ù ‘ BES | 390 FRINT#I.:PRINT#i." NOUVELLE LOCATION © DE 16599 & : AN: 
5 PRINT:PRINT" PLACER DISQUETTE TABLE DANS LE LECTEUR ÔNF£ | “:42600-LONG:" à “es INFUT#1,NEMLOC | 
[A] & FRESSER UNE TOUCHE":CALL &BB06 40û IF NEULOC< 10506 DR NEWLOC:42608-LONG THEN CLS#i:G0T UE‘ 
bÿ CAT:PRINT" EST-CE LA BONNE DISQUETTE ? (O/N)":G0SUB :HB£ | 0 746 
48û 418 CALL 19966. NEWLOC FFE 
76 IF a$="N'THEN LOCATE 2,25:PRINT'CHANGER LA DISQUETTE >MH£ | 420 : :FG< 
ET PRESSER UNE TOUCHE":CALL LEBO6:G0TO 26 43ù PRINT#1,: INFUT#1," NOM DE SAUVEGARDE (Sans extensio :ÜH< 
86 PRINT" IMPRIMER LES DONNEES ? (0/N)":G0SUB 48@:IF A8 »JJ2 |n .i iNTS:IF LENINT#):8 THEN 426 ELSE NT$=NT&+", TG" 
="O"THEN IMP=1 448 SAVE NT$,E, NEWLOC, LONG EJE 
96 3GE£ | 456 JE 
199 LOCATE 2,25: INPUT'NOM DE LA TABLE "int > IB{ 46 ) LOCATE 3,25:PRINT"AUTRE OPERATION ? (0/N) sWL< 
116 IF LEN int#)>8 THEN IF MIDS(RIGHTSEntS.4),1,1j5"," HUCE :B0SUB 480:IF A$="O"THEN 26 ELSE END 
THEN 166 : 7à LME 
134 IF LEN (nt$i:13 THEN LOCATE 3,25:PRINT CHRS(IG):GÛT VD: | 406 a4=""eNHILE a$=""ea$=UPPERSCINEEYS: : HEND MNE 
0 199 490 IF a$:>"O"AND a$<"NUTHEN 484 HP: 
ri" DE: | 491 RETURN FUG: 
3à LOCATE 1,18:PRINT CHR$(20):CALL 10000,@NT$:IF PEEK( GES | 510 ‘ F4 
14222) {+9 THEN 1060 1909 LOCATE 2,2S:PRINT"ERREUR DRIVE": CALL BEBD6: 6070 26. :UB< 
131 ‘ EF< 
14ÿ ADT=PEEE (14216) +2564PEEX (19217) 2ÉF< | 10006 A4=22710:F=827F0el =2j0@:WHILE à£=F:FOR â=û TO +15: UE: 
158 ‘ 2FG2 | READ C$ik=VAL ("R'4CS) :G2=SH+69826#(G4K 3276712 IF AUS T 
169 IF PEEK(ADT) € OR PEER (ADT) 2 OR ADT<>21856 THEN TA ?LH£ | HEN FOKE A. 
BLE=® 19919 NEXT:READ D$:T=VAL("R"4D#)2 IF TE:S THEN PRINT CHR UC: 
178 ‘ HJE | $(7):"Erreur ligne":L:END ELSE L=L+5:HEND: RETURN 
188 LONG=PEEK (142187 +2564PEEE (19219) NES | 168206 DATA DD.6E. 86 DE, bb,61,46,23,5E,23,S6,EB,AF.32,EE :DD< 
196 CLS#1 ?EL£ | ,27,06B0 
206 PRINT#CAN: IF TABLE THEN FRINTHCAN," TABLE +XC£ | 10036 DATA 11,00,C6,CD, 77, BC, D2,DF.27,CA,DF,27,ED,53,E8 ?VE{ 

1 iNTS ELSE PRINTACAN," FICHIER  : “iNT#:G0TD 366 .27,0F78 

| 19046 DATA ED,43,EA, 27,21.60,55,A7.ED, 92, 28,08, 21,38, 4B :JF< 

210 : »CD£ | ,47,15F 
226 PRINTHCAN." EN MODE : "4 FEEE (ADT) DES | 16956 DATA ED.92.26, 04,EE, CD, 87, EC. DZ, DF.27,CA,DF,27,CD KG 
236 PRINT#CAN," NOMBRE DE SPRITES :":PEEK (ADT+1) »TF< | ,7A,1F3F 
246 PRINT#I,:PRINTHCAN, USING" LOCATION TABLE ###H# ":A EG: | 1006à DATA BC.C9,DD,4E,00,DD.66,41,22,EC,27,ED,5E,E8,27 >EBH£ 
DT: :PRINTHCAN," &'HEXS (ADT,. 4} ,E5, 2704 
25% PRINT#CAN, USING " LONGUEUR TABLE ###f## “LONG: :PRI MH | 18070 DATA 47,ED,92,E1,DA AS. 27,ED,5B,EC, 27,24,E8,27,87 RJ< 
NTRCAN," LHEXS (LONG, 4) .E2,3157 
26û PRINTHCAN, USING " FIN DE LA TABLE ##### ":ADT4LONG: 2RJE | 10080 DATA 52, 4D, 44, DD, 2A,EB, 27, DD, 23, DD, ZE. dô, 20, DD, 22 ?WKé 
:PRINTHCAN, “ BUHEXS (ADT+LONG, 4) .DD. 76C4 
270 IF CAN=E OR IMF=û THEN 386 UÉS | 10094 DATA 6E.08. DD, 66,01, 47,ED, 42,D0,75. 06, DD, 74,61,0D +1L< 
286 IF IMF THEN CAN=B:6070 269 ML | ,23,3FF8 
27 LME | 19106 DATA DD,23,3D,26,EA.24.E8,27,ED,SB,EC, 27.ED, 4B.EA DC 
300 IF ADT=49152 THEN PRINT#I.:PRINT#1," FILE TYPE ERRO :TD£ | ,27, 4814 
R. SANS DOUTE FICHIER ASCII":GOTC 460 16116 DATA ED, B6.C9,2A,EC.27,ED,58.E8.27,47,ED. 52. 4D, 44 >GD€ 
301  PRINT#L:PRINT#CAN, USING" LOCATION FICHIER #HH#h “: 2NES | DD, 5162 
ADT: :PRINTACAN, " BUHEXS (ADT, 4) | 18126 DATA 24,E6,27, DD, 23, D00,7E.@à,30, DD, 23. DD, 46. 4, DD :ME< 
316 PRINTHCAN,USING " LONGUEUR FICHIER ####h ":LONG::PR TES | 66, 5ec | 
INT#CAN, " B°HEXS (LONG, 4) 18136 DATA 61,09, D0. 75, 4. DD. 74.061,00. 23. DD,23.3D.20,EC 874 
326 PRINT#CAN,USING “ FIN DE FICHIER HH###h “:ADT+LONG :UF£ | ,24,5EE1 
32 PRINT#CAN," &HEX$ (ADT+LONG, 4} | 19149 DATA EC, 27,ED.4F,EA,27.09,EB,24.E8,27.09,ED,B8.C9 :0G< 
336 FG£ | ,CD, 674€ 
348 IF ADT=19256 AND FEEK(21856=255 THEN PRINT#I.:FRIN :VHE | 10156 DATA 7D,BC,3E.FF,22,EE. 27,09. 00,00, 00,60,08,00, 06 :NH£ 
TRCAN" C'EST UNE TABLE CHANTIER": PRINTACAN,UGIHE" QUI | 
CONTIENT ## SPRITES":FEEK (21857) EJ< 


356 IF CAN=6 OR IMP=6 THEN 466 
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36% IF IMF THEN CAN=8:G0T0 356 


00, 6034 
19166 DATA 66,06, 00, 00, dù, 00, 00, 00, 00, 06, 00, D, 06, 00, 00 
RJ< 


00,64 


La grande majorité des utili- 
sateurs d”’ RAD CPC mé- 
me s'ils préfèrent les joies du 
joystick, exploitent un ou plu- 
sieurs ‘‘logiciels utilitaires’’, 

u’il s'agisse de gérer un fi- 
chier, faire du traitement de 
texte, tenir une comptabilité, 
etc. 


Tous ces programmes débouchent sur 
l'enregistrement d’un fichier de don- 
nées ; soit ‘’très clair’”, soit ‘’mécham- 
ment codé”, mais c'est presque toujours 
un ‘’fichier ASCII” ; par opposition aux 
fichiers binaires ou à accès direct. Après 
l'euphorie des premiers jours (ou mois, 
ou années), on se trouve confronté à un 
problème insoluble par le logiciel qui a 
généré ce fichier : une modification très 
spéciale non prévue au ‘’menu’”’ ; ou 
alors on veut abandonner TRUCBASE 
pour MACHINDATA bien plus perfor- 
.mant, mais on n’a pas du tout envie de 
re-entrer nos 280 fiches au clavier. 
C'est humain ! Il faut donc faire subir une 
‘’opération chirurgicale’’au fichier initial. 
Comment faire ? 
Tout d’abord se familiariser avec la 
SYNTAXE d'écriture et de lecture des 
fichiers ASCII. Ensuite, triturer le fichier 
en question pour qu'il soit lisible par un 
autre programme. 
Je vous avoue un exemple personnel : 
possesseur d’un des tout premiers CPC 
464, j'avais commencé un gros fichier 
sur ‘’gestion de fichiers CORE””. Puis j'ai 
récupéré ce fichier après décodage (voir 
CPC n° 12 page 36) pour poursuivre son 
exploitation par un programme person- 
nel plus performant. Ce nouveau fichier 
ASCII a été transféré par câble sur un 
compatible IBM PC (voir CPC n° 20 page 
64) où il donna trois versions : transfor- 
mation en fichier ‘’en accès direct’” pour 
un logiciel BASIC, une exploitation sur le 
logiciel ‘’ LOTUS 123” et enfin, un trans- 
fert sur un gros ordinateur IBM... Et tout 
‘cela, sans avoir eu à retaper une seule 
fiche ! Seulement quelques lignes de pro- 
grammation ici et là, et toujours en 
BASIC. Ce langage est peut-être moins 
rapide que les autres, mais il sait tout 
faire et ce, en quelques lignes. C'est cela 
qui fait sa force, même s'il continue à 
être méprisé par les ‘’professeurs bar- 
bus”. 


Qu'est-ce qu'un fichier ASCII ? 


C'est une suite d'ENREGISTREMENTS 
de longueur maxi 255 caractères. On les 
appelle aussi ‘‘fichiers séquentiels’”. On 
a bien dit ‘’caractères’”, donc représen- 


LA CHIRURGIE 
DES FICHIERS ASCII 


tables à l'écran, donc en fait ayant cha- 
cun un code ASCII supérieur à 31. A l'ex- 
ception du CHRS$ (13) qui marque la fin 
de chaque ‘’enregistrement”” (= ligne”, 
“‘fiche’””) et du CHR$ (26) qui est le 
repère de la fin du fichier (le EOF du 
BASIC). 

Supposons un tel fichier ‘’TRUC.DOC”’ 
sur une disquette ‘‘formatée système” : 
passons sous DOS par ICPM et de là, 
tapons TYPE TRUC.DOC. Aussitôt, le 
contenu de ce fichier apparaît à l'écran, 
c'est du texte, où chaque ‘‘paragraphe’” 
(c'est un ‘’enregistrement'’) ne peut 
excéder 255 caractères. 

Si vous faisiez TYPE sur un programme 
en binaire (.COM,.BIN,.EXE,.BAS) vous 
auriez quelques surprises ! D'abord les 
codes ASCII compris entre 128 et 255 
traduits par des caractères graphiques, 
mais les codes inférieurs à 32 (très nom- 
breux) risquent d’être farceurs, comme 
12 qui efface l'écran ! 

Un cas particulier, les fichiers dits ‘’à 
accès direct” : c’est de l’ASCII mais pas 
du séquentiel. Tout est mis bout à bout ; 
on a un seul enregistrement, lisible par 
TYPE mais qui peut faire 50000 octets 
ou plus. 

Résumons : tout fichier (ou programme) 
est une suite d'octets (des nombres 
entre O et 255). Dans un fichier dit 
"ASCII" ces octets sont supérieurs à 31, 
donc affichables. Un fichier dit ‘’séquen- 
tiel’” est un fichier ASCII tronçonné en 
‘’enregistrements”” de longueurs allant 
de O à 255 caractères. Nous ne traite- 
rons que ceux-là. 


La syntaxe des fichiers (rappel) 


Peu de mots BASIC à connaître. Pour 
enregistrer le fichier CHOSE 
OPENOUT ‘‘CHOSE" 


PRINT #9, ‘Paul’: PRINT #9 
‘’Jean”” : PRINT #9 ‘’Marie”” 
CLOSEOUT 


OPENOUT se traduirait par ‘’ouvre en 
sortie’. Pour lire (charger) ce fichier il 
suffit de remplacer les OUT par des IN 
et les PRINT par des INPUT. Le # 9 dési- 
-gnant le ‘’canal disquette’’ (ou cassette) 
Pour lire un fichier, dont on ignore le 
nombre d'enrégistrements, la fonction 
EOF (= ‘END OF FILE”’ = fin de fichier) 
est très utile. Exemple : 

10 OPENIN ‘’TRUC.DOC"”’ : REM ouver- 
ture ou entrée. 

20 WHILE NOT EOF : REM tant que ce 
n'est pas la fin 

30 INPUT #9, A$ : REM lecture d’un 
enregistrement. 

40 PRINT A$ : REM affiche à l'écran 
50 WEND : REM recommence 

60 CLOSEIN : REM fermeture de 
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l'entrée. 

Très important : on a le droit d'ouvrir 
SIMULTANEMENT deux fichiers à con- 
dition que l’on soit en lecture, l’autre en 
écriture. Autrement dit, un OPENOUT ou 
un OPENIN à la fois. 

Première magouille : on veut faire une 
copie de ce fichier mais avec le texte en 
majuscules. Seulement trois petites 
lignes à ajouter : 

15 OPENOUT ‘’TRUC.MAJ"" 

45 PRINT #9, UPPERS (A$) 

65 CLOSEOUT 

Notez que ces lignes auraient pu avoir les 
numéros 5, 35 et 55 : l’ordre des ouver- 
tures et fermetures n’a aucune impor- 
tance. 

Une telle simplicité d'emploi, ce serait 
trop beau s'il n’y avait pas. 


Le grand piège 


C'est celui de croire le manuel lorsqu'il 
vous invite à enregistrer vos données par 
WRITE #9, A$ : faux et archi faux !! 
Voilà ce qu'il faut faire : 

1 - Entrez vos données au clavier par un 
LINE INPUT, grâce auquel vous pourrez 
insérer des virgules et même des guille- 
mets dans vos variables chaînes 

2 - Enregistrer par PRINT #9 

3 - Lire par LINE INPUT #9 

4 - N'utilisez WRITE #9 que pour les 
variables numériques, genre WRITE #9, 
N ; car on gagne deux octets par valeur. 
Rien de tel qu'un petit programme de 
démonstration, c'est plus parlant. 
(voir listing LINEWRIT) 

La chaîne A$ de la ligne 20, on ne pour- 
rait l’entrer au clavier que par un LINE 
INPUT A$. OK ? 

On enregistre un nombre et A$, alterna- 
tivement par WRITE #9 et PRINT #9. 
Ce fichier est ensuite lu par des LINE 
INPUT #9, C$ (LINE INPUT nombre est 
interdit par BASIC), puis relu par INPUT 
#9. 

Et l'écran vous montre les dégâts : 

— première constatation, la chaîne piège 
n'a été reproduite correctement qu'une 
seule fois : si elle est enregistrée par 
PRINT #9 et lue par LINE INPUT #9. 
— enregistrer une chaîne par WRITE # 9 
provoque l'élargissement de la chaîne par 
deux guillemets ! 

— cette suite de guillemets dans une 
même chaîne provoque des césures si on 
la lit par INPUT #9. 

— si on lit des nombres par LINE INPUT 
#9, donc sous forme de chaîne, on 
gagne à les avoir enregistrés par WRITE 
#9 : deux octets. 

Nous possédons alors TOUTES les 
notions pour nous livrer à toutes les chi- 
rurgies sur les fichiers. 
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Ecriture directe de fichiers 


Si vous voulez écrire un fichier ASCII très 
simplement, ne serait-ce que pour fabri- 
quer un fichier test pour les programmes 
suivants, les quelques lignes du pro- 
gramme ECRIFICH sont très suffisantes. 


Remarquez l'astuce pour fermer le fichier 
autrement que par CLOSEOUT ; l'entrée 
de CTRL Z (et ENTER). En effet, CTRL 
Z a pour code 26 et PRINT #9, CHR$ 
(26) a le même effet que CLOSEOUT. 
Nota : ceux qui connaissent le DOS des 
IBM-PC auront reconnu la technique 
d'écriture de fichiers par COPY CON : 
avec final par F6 (=CTRL Z). lei, c'est 
exactement pareil mais à partir du 
BASIC. 


Décodage d'un fichier commercial 


Les fichiers ASCII enregistrés par des 
traitements de textes ou autres utilitai- 
res du commerce sont ‘‘truffés” de 
codes de contrôles, qui sont des repères 
dont seul le logiciel a le secret. Or, il est 
courant que l'on veuille utiliser ces 
fichiers pour d’autres usages : ou bien on 
veut visualiser (écran ou imprimante) ces 
codes afin de comprendre leurs rôles, ou 
on veut en tirer un autre fichier ASCII qui 
en soit débarrassé. Ce dernier sera aussi 
facilement imprimable, pour exemple 
sous CPM par TYPE + CTRL P. 


Le programme ‘’SANSCODE”" permet 
tout cela : chaque enregistrement A$ est 
examiné caractère par caractère (lignes 
250-270) : si son code ASCII n'est pas 
compris entre 32 et 126, on affiche (ou 
imprime) seulement son code entre les 
signes <et>. 

Le sous-programme lignes 400 à 510 
ouvre en sortie un fichier qui va recevoir 
le texte ‘‘’épuré”’ du fichier original. 
Même principe que précédemment mais 
on n'’enregistre que les ‘bons caractè- 
res’ en oubliant les autres. 

En options visualisations, les enregistre- 
ments apparaissent numérotés, souvent 
utile. Dans tous les cas, en fin d'opéra- 
tion, l'écran affiche le nombre total d'en- 
registrements présents dans le fichier 
traité. 


Substitution d'une chaîne 
par une autre 


Horreur ! Vous vous apercevez que vous 


écrivez tel mot avec un seul ‘‘l"” alors 


qu'il en prend deux ; et on retrouve ce 
mot des dizaines de fois dans votre 
fichier. Un travail de Romain pour cor- 
riger cela ! Eh bien non, ce petit pro- 
gramme se chargera de tout et surtout 
sans en oublier un seul. Il enregistrera un 
fichier avec les corrections tout en lais- 
sant intact le fichier d'origine. 

Notez que cet utilitaire peut aussi traiter 
un programme BASIC enregistré en 
ASCII ou des ‘’programmes-sources’’ en 
DBASE, PASCAL, C, etc. 
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A chaque occurrence (rencontre du mot 
cible), l'écran affiche l'enregistrement en 
question et demande votre accord pour 
le remplacement. C'est une sécurité 
indispensable. En effet, supposons que 
l'on veuille remplacer partout le prénom 
MARIE par JACQUELINE et que le pro- 
gramme se mette en arrêt sur REMA- 
RIEZ.. On devine le désastre avec un 
curieux ‘‘REJACQUELINEZ”". 


Le programme SUBSTITU peut traiter 
plusieurs occurrences dans le même 
enregistrement (avec demande d'accord 
à chaque fois). Après chaque occurrence 
corrigée, l'écran affiche enn bleu clair le 
résultat de son travail. 


Quelques explications : 

— Le INSTR de la ligne 130 peut intri- 
guer. Cette fonction accepte comme pre- 
mier paramètre numérique la position du 
départ (DEP) de la recherche. Par défaut 
c'est 1. Supposons un enregistrement 
avec trois occurrences : accord sur la 
première et la troisième mais on refuse 
de modifier la deuxième. En ce cas DEP 
= ancienne position P + 1 (ligne 160) 
et nouvel examen par INSTR, qui trouve 
et propose la troisième occurrence : 
implantable. 

— construction de l'enregistrement cor- 
rigé ligne 1 70. L'occurrence a été trou- 
vée en position P : on conserve la partie 
gauche, on y ajoute le mot (ou chaîne) 
de remplacement, puis tout ce qui était 
à la droite de la chaîne cible. 
Affichage en bleu clair (cela rassure). 
S'il n'y a plus d’autres occurrences, l'en- 
registrement corrigé est sauvegardé. 
Notez que ce programme peut aussi ser- 
vir à effacer une chaîne : à la question 
‘Remplacer par :’ il suffit de presser 
ENTER (= chaîne vide) 


Fusions de fichiers 


Le DOS CPM 2.2 étant plutôt pauvre à 


ce sujet, le petit programme APPEND 
permet de rassembler en un fichier glo- 
bal jusqu’à dix fichiers ASCII mis ‘bout 
à bout’. Ces derniers ne sont pas effa- 
cés pour autant. En final, l'écran affiche 
le nombre d'’enregistrements qui contient 
le fichier global. Ultra simple ! 


La technique générale 


Vous avez pu constater que le principe 
est très simple : le fichier d'origine en lec- 


-ture, le fichier ‘‘version corrigée”’ en écri- 


ture. On lit une fiche, on la ‘’maquille’” 
ou non, on l’enregistre. 

C'est lent, c'est indiscutable, mais 
comme c'est une pratique non quoti- 
dienne, cela a peu d'importance. L'es- 
sentiel c’est de pouvoir résoudre une 
transformation très particulière en quel- 
ques lignes de BASIC. Il arrive souvent 
que l'on écrive un mini-programme 
(moins de quinze lignes) pour un seul 
fichier à traiter, mais pour une métamor- 
phose très particulière. Si l’on a consa- 


cré cinq minutes pour ces quelques 
lignes, qu'importe que le RUN fasse 
‘‘’pédaler’’ le lecteur de disquettes pen- 
dant un quart d'heure : il aurait pu faire 
ce travail en une ou deux minutes, mais 
avec un programme qui aurait demandé 
des heures de mise au point. Absurde 
pour un ou deux fichiers à traiter, non ? 
Ceux qui ne possèdent pas de lecteur de 
disquettes vont me maudire car cette 
technique n'est guère applicable aux cas- 
settes. Il faudrait charger tout le fichier 
en DIM, le modifier en RAM et l'enregis- 
trer. Le listing est alors beaucoup plus 
long... 

Pour terminer, voici un ‘’EDITEUR A 
TOUT FAIRE”, tout sauf les applications 
précédentes. 


Un éditeur de fichiers ASCII 


Ce petit logiciel est conçu pour les diver- 
ses ‘‘bidouilles’” que l'on désire faire 
subir à un fichier ASCII. Il peut en effet : 
— faire une copie sélective des 
enregistrements 

— modifier telle ‘‘fiche’’ 

— insérer ici et là de nouveaux 
enregistrements 

— déplacer un ensemble d'enregistre- 
ments (1 à 50) en l'insérant plus loin 
dans le fichier 

— précipiter la fin de la ‘’copie’” 

— après sauvegarde, afficher à l'écran 
ou sur imprimante, le contenu du fichier 
modifié. 

Et, en plus, simple d'emploi puisque les 
commandes pour les sept options sont 
affichées en permanence. 

(voir listing EDIFIC) 

L'écran est en trois parties : le haut est 
la légende des options, plus le compteur 
d'enregistrements sauvegardés. Au 
milieu de l'écran, l'enregistrement lu 
(celui en cours) et son numéro. Plus bas, 
la zone de saisie d'un enregistrement en 
réécriture ou supplémentaire (en 
insertion). 

Chaque fois qu'un nouvel enregistrement 
est présenté, on dispose des options 
suivantes : 

O = oui, on le conserve (sauvegarde) 
N = non, on le passe 

R = réécriture (modification). Le curseur 
passe en zone de saisie. Le SHIFT COPY 
(Si pratique est utilisable. 

| = insertion d’un enregistrement qui se 
placera AVANT celui qui est présenté. Le 
curseur est en zone de saisie. Après 
ENTER (sauvegarde) c'est toujours le 
même enregistrement lu qui est proposé. 
M = mise en mémoire RAM de l’enre- 
gistrement. On a prévu un DIM pour 50. 
C = copie insertion de tous les enregis- 
tements qui étaient mémorisés. RAZ du 
DIM qui peut alors être regarni par d’au- 
tres. Cette insertion d'un bloc se fait 
aussi AVANT l'enregistrement affiché. Si 
le fichier lu arrive en EOF, le transfert de 
ce bloc est automatique donc en final du 
fichier sauvegardé. 

F = fin, avant la fin de la lecture du 
fichier origine. Cela évite de presser “N°” 
jusqu’à l'EOF. 


A cause de cette dernière option, nous 
n'avons pas pu faire la lecture par le sem- 
piternel WHILE NOT EOF.... WEND mais 
par le IF NOT EOF THEN GQOTO de la 
ligne 270. 

Le programme créant un WINDOW #1 
vous remarquerez qu'on l’annule à la fois 
au début (ligne 50) et en final (ligne 
310) : c'est une précaution qu'il faut 
toujours prendre avec les WINDOW... 
Le reste du listing est des plus 
classiques. 


Conclusion 


Cette panoplie de cinq programmes uti- 
litaires va résoudre 90% de vos chirur- 
gies de fichiers ASCII. Rappelons-les : 
ECRIFICH pour créer un fichier directe- 
ment au clavier 

SANSCODE pour faire le voyeur sur les 
fichiers ‘’du commerce’’ ou pour visua- 
liser un fichier normal. 

SUBSTITU pour remplacer une chaîne 
par une autre 


38 CLS:LINE INPUT'NOM du FICHIER a creer ",FIC$ 


APPEND pour fusionner des fichiers 
EDIFIC pour de grosses modifications ou 
pour créer un fichier plus petit que celui 
d'origine. 

Il est bien évident que le fichier issu d'un 
de ces programmes peut ensuite être 
traité par un des autres... 

Ils ne prétendent pas résoudre tous les 
‘cas de figures possibles’” mais ils illus- 
trent les façons de faire pour concevoir 
un petit programme spécifique et sur 
mesure. 


ED 


40 PRINT:PRINT "Pour la FIN tapez CTRL Z et ENTER":PRIN >NE< 
T 
5 OPENOUT FIC$ DEF< 
66 WHILE ASC?CHRS (26) >UG< 
19 * LINEMRIT - TESTS de LINE INPUT #9 et WRITE #9 - M >WB< 70 LINE INPUT 4$ sDH 
À, 6/87 80 PRINT #9,A$ CI 
20 AS=SPACES (2)+"PAUL, MARIE, "4CHRS (34) +" JEAN"4CHRS (3414 >PC4 90 WEND STK< 
SPACES (2) 190 PRINT:FRINT "-—--— FICHIER ENREGISTRE -—--" >1B4 
36 CLS: BORDER 2 >FDé 
46 PRINT "Le nombre 128 et une chaine piege :“:PRINT *LE* 
99 PRINT A$:" (Lonqueur=21}":PRINT 3AF< 
68 PRINT "ecrits par WRITE #9 puis par PRINT #9" 316€ 
7à OPENOUT"TEST" #LH£ 
89 URITE #9, 128 PAR 
; 19 ‘- SANSCODE - EXTRAIT LES CARACTERES AFFICHABLES D'U JB 
96 PRINT 49,128 >MK< A ages A 
194 WRITE #9, A8 »VB4 de 
{18 PRINT 49_a$ re 26 ‘AMSTRAD CPC - M.ARCHAMBAULT - 6/87 >MC< 
ur “te 34 OPENOUT "BIDON" : MEMORY HIMEM-1 : CLOSEOUT >YD< 
134 ‘ LECTURES DU FICHIER TEST ?LE< . El 8,3:PEN 3:PRINT"DECODAGE de FICHIERS ASCI ?TE< 
149 PRINT: PRINT “> Lect + LINE INPUT #9":PRIN DGF4 | 
: si 50 LOCATE 4,10:PRINT “Ecran, Imprimante, Copie decodee" >LF< 
_— :TEX$="EIC":G60SUB 5000 
150 OPENIN"TEST" >66< 
jaë FOR Let TB 4 2) 69 D=K+6: IF K=1 THEN D=0:° CANAL# >EG< 
rie thrée ue 70 LOCATE 5,13:LINE INPUT"Fichier a traiter : ",FICO$  KH< 
7 LINE INPUT#9,C$ >6 de. é _. 
F nai TAB(30);"L =";LEN(CS) BG ON K GOSUE 200,206, 409 dons 
190 NEXT:PRINT >JL< o PRINT:PRINT “Ce fichier comporte":F: "enregistrements >MK< 
200 CLOSEIN DEC< , .. 
210 PRINT Lecture par INPUT 49": PRINT 3ND< su TAB(9); pressez une touche SVF":CALL &BB96 
220 OPENIN"TEST" >EE< nn ; 
230 INPUT #9, PRINT N D .. 
249, INPUT #9,N:PRINT N >KG< A es 
250 FOR 1=1 T0 2 MH À 1F= l 
à Pur dite oi 230 PEN 2:PRINT#D,F 3": "5: PEN 1 >XF< 
, / 4 
270 PRINT C$::PRINT TAB(3O) ;"L =";LEN(CS) >RKE sa D 
284 NEXT >PLX u : 
290 CLOSEIN: PRINT de RIRE nb 
270 IF ASC(CS)>31 AND ASC(CS)<127 THEN PRINTHD, C$5:ELSE HK4 
PRINTHD, "<"; ASC (CS) ; "2"; 
280 NEXT:PRINTHD, CHR$ (13) LA 
290 WEND »XM 
300 CLOSEIN >FDX 
310 RETURN JHEX 
19 ‘‘ECRIFICH - Ecriture directe de Fichiers >EB< 400 ‘ FICHIER DECODE FICI$ DFEX 
20 ‘ AMSTRAD CPC - M.A. 6/87 >KEX 419 LOCATE 3,16:LINE INPUT"Nom du fichier epure : ",FIC >VF< 
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i$ 

426 F=0:0PENIN FICO$:OPENOUT FICIé 
434 WHILE NOT EOF:F=F+1 

446 LINE INPUT#9.4$ 

45% FOR N=i TO LEN(A$) 

466 CH=MIDS (ASN, 1) 

470 IF ASC(C#):31 AND ASC(CH)<127 THEN PRINTRD.C$: 
486 NEXT: PRINT#D 

496 WEND 

949 CLOSEIN: CLOSEOUT 

914 RETURN 

9404 ‘ REPONSE À UN MENU 

9919 TEXS=UPPERS (TEX$) : LT=LEN(TEX#) 
9920 LOCATE 15-LT,24:PRINT'Reponse (": 
9936 FOR I=i TO LT-1 

9946 PRINT MIDH(TEXS, 1,1): "4 "5 :NEXT 


5690 PRINT RIGHTS (TEXS, 1) 3%)" CHR# (154) :CHRS (243) : CHR#C 


267) 

9060 R$="":UHILE R$="":R$S=INKEYS: HEND 
5070 R$=UPPERS (R$) : K=INSTR(TEXS,R$Y 

0086 IF K=0 THEN PRINT CHR$(7)::G60T0 5466 
5090 RETURN 


16 ‘ SUBSTITU - SUBSTITUTION DE CHAINE PAR UNE AUTRE DA : 


NS UN FICHIER ASCII 
26 ‘ AMSTRAD CPC - M.Archambult 6/87 
36 DEFINT A-Z:OPENOUT"BIDON": MEMORY HIMEM-1:CLOSEOUT 


49 CLS:PEN 3:LOCATE 9,3:PRINT “REMPLACEMENT de CHAINE": 


PEN ! 
94 LOCATE 7,8:LINE INFUT'Fichier Source: ",FICO$ 
65 LOCATE 7,10:LINE INPUT'Fichier Cible : ",FICI$ 


79 LOCATE 3,13:LINE INPUT"Chaine Cible : “,C:LC=LEN(CS ; 


} 

84 LOCATE 3,15:LINE INPUT'Remplacer par: ",D$ 
96 CLS 

190 OPENIN FICO$:OPENOUT FICI$ 

116 WHILE NOT EOF 

120 LINE INPUT#9,A$:DEP=1 

136 P=INSTR(DEP,A$,C$): IF P=0 THEN 196 

148 PRINT A$ 

159 PRINT CHR$ (7): : INPUT" --- Remplacement ? (O/N}".R$:I 
F UPPERS(R$)="0" THEN 179 : 

166 DEP=P+1:G0TO 139 


176 AS=LERTS (A$,P-1)+D$+RIGHTS (AS, LEN(A$)-P+1-LC) 
189 PEN 2:PRINT A$:PEN 1:PRINT:G0TO 136 

190 PRINT #9,A$ 

299 WEND 

219 CLOSE IN: CLOSEOUT 

229 PRINT: PRINT" ------ TERMINE -—----" 
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AS 
3KE< 
?KB< 
2TC< 
?TD< 
LE 
DF< 
?EG< 


?TH< 
30€ 
2UK< 
?GL< 
2MC< 
2VD£ 
?BE< 


APPEND 


18 © APPEND - FUSIONS de FICHIERS ASCII :FEË 
26 © AMSTRAD CPC - MA, 6/87 EC< 
36 OFENOUT"EIDON": MEMORY HIMEM-1:CLOSEOUT:DEFINT À-7 :JD< 
46 CLS:LOCATE B,3:PEN Z:PRINT “FUSIONS de FICHIERS ASCI ME“ 
I":FEN 1 

J6 M=M+] AUF< 
66 LOCATE 3,6+M: PRINT "Fichier ":M; "(Q=quitter)":: INPUT ‘HG 
MN, FIC$ (M) 

79 IF UPPERS(FICS (M) }="0" THEN M=M-1:G6070 94 2ÀHE 
84 GOTD 56 NE 
96 LOCATE 3,9+M: INPUT"'Nom du Fichier global ",F6$ 2REE 
198 CLS:PRINT "Patience... “:FRINT :CE€ 
119 OFENOUT Fü$:F=6 LES 
126 FOR Ezi TO M :YD£ 
134 OPENIN FIC$(K) 3VE< 
149 PRINT FIC$(K):" en transfert" #LF< 
158 HWHILE NOT EDF sXG< 
168 LINE INFUT #9,A$ #DH£ 
176 PRINT #9.A$:F=F+i #LJe 
18ë WENL 2VEE 
19à CLOSEIN NL: 
264 NEXT #FC* 
219 CLOSEOUT sLD< 
220 PRINT:PRINT F6$:" a";F: "enregistrements" ?TE< 
279 PRINT:FPRINT "---- TERMINE ---": PRINT CF 


14 ‘ EDIFIC - EDITEUR DE FICHIERS ASCII 

24 ‘ AMSTRAD CPC - M.Archambault 24/6/87 

30 OPENOUT"BIDON":MEMORY HIMEM-1:CLOSEOUT: DEF INT À-2 

49 DIM M$ (50) :NG=0:E=0 

96 WINDOW#O, 1,44,1,25:CLS 

bë PEN Z:LOCATE 4,4:PRINT "EDITEUR de FICHI 
ER" 

78 PEN Z:LOCATE 5,8:FRINT "Michel Archambault - juin 19 
B7":PEN 1 

84 LOCATE 5,14:INPUT'"'Fichier a traiter : ",FIC4$ 

94 LOCATE 7,17: INPUT'"Fichier a creer : ",FICI$ 

169 IF FICI$=FICO$ OR FICI$="" THEN 86 

118 ‘ LECTURE + ENREGISTREMENT 

126 ‘ Legendes des R$ en lignes 3964 

136 WINDOW#9, 1,49,7,29:CLS:GOSUB 3046 

148 OPENIN FICG#:OPENOUT FICI$ 

158 LINE INPUT #9,A$ 

168 J=J+1:PEN 2:LOCATE 2,2:PRINT J:PEN 1 

174 LOCATE 1,3:PRINT SPACES (295) :LOCATE 1,4:PRINT A$ 
180 GOSUB 4600- 

196 IF R$="0" THEN 266 

269 IF R$="N" THEN 274 


PF 


>J6< 


>VHé 


3YE< 
3MC< 
?PD< 
?0E< 
2PF< 
?CG€ 
2RHE 
+0J< 
?XE< 
3XL< 
3NC< 


214 IF R$="R" THEN LOCATE 1,11:PEN Z:LINE INPUT A$:LOCA :7D< 


TE 1,11:PRINT SPACES(255):PEN 1:G07T0 269 419 LINE INPUTHS,CS:PRINT #D,C$ 3VF< 
224 IF R$="I" THEN LOCATE 1,11:PEN 2:LINE INPUT B$:LOCA :LE< 426 WEND ÉLCES 
TE 1,11:PRINT SFACES (255) :PEN 1:PRINT#9,B$:GOSUB 2966:56 430 PRINT:CLOSEIN ?EH£ 
OTO 174 444 END ?1J4 
230 IF R$="M" THEN NS=NS+1:M# (NS) =A$: GOTO 155 2GF< 2609 ‘ NOMBRE D'ENREGISTRES ?BC< 
246 IF R$="C" THEN FOR N=i TO NS:PRINT #9,M$ (N) :GOSUB 2 :LG< 2019 E=E+1 DD 
069: NEXT:NS=6:G0TD 174 2924 LOCATE #1,19,5:PRINT #1,E:"enregistres" 2PEX 
259 IF R$="F" THEN 286 ?LH 2634 RETURN ?LF< 
264 PRINT #9.A$:G0SUB 2906 2WJ< 3606 ‘ FENETRE DES OPTIONS ?PD€ 
274 IF NOT EOF THEN 156 2NK< 3919 WINDOW#1,1,49,1,6:PAPER#1,2:PEN#1. 0: CLS#1 ?1E{ 
284 IF NS: THEN FOR N=1 TO NS:PRINT #9,M$(N):GOSUE 244 >UL< 3629 PRINT#] 2MF< 
4: NEXT 3636 PRINT #1," 0 oui,conserve"::PRINT #1i,TAB(24):"M mi >AG< 
299 CLOSE IN: CLOSEOUT #DM£ se en memoire" 

366 ‘ FINAL >WD< 3644 PRINT #1," N non,passe"::PRINT #1,TAB(24):"C copie :2H4 
319 WINDOW#6, 1,49,1,25:CLS 3RE“ la memoire" 

324 PRINT UPPERS(FIC1$);" a": E: "enregistrements" 2 JF 3656 PRINT #1," R re-ecrire"s;:PRINT #1,TAB(24):"F fin,c EJ 
330 PRINT: PRINT TAB(3): "Voulez-vous le visualiser * (0/ >06{ lose" 

N) "4 PRINT 3666 PRINT #1," I inserer avant" ?LK£ 
349 R$='":HHILE R$="":RS2UPPERS (INKEYS$) : WEND 2MH€ 3970 FEN#1,3 LL 
3534 K=INSTR("ON",R#)+1:0N K GOTO 346,34b,440 ?DJ< 3689 RETURN >TM< 
366 PRINT TAË(Z):"a l'Ecran ou sur Imprimante * (E/I)": :GK< 4600 ‘ ENTREE DES OPTIONS ?PE< 
PRINT 4619 TEX$="ONRIMEF" ?CF< 
370 R$="":UHILE R$="":RS=UPPERS (INKEYS$) : HEND ?QL< 4029 R$="U:HHILE R$=" "2: R$=INKEYS: HEND 2FG< 
386 K=INSTR("EI",R#) :D=(K-1) #48: IF K=6 THEN 376 >0M< 4039 R$=UPPERS (R$) :K=INSTR(TEX$,R$) ?HH£ 
399 OPFENIN FICIS 2MN£ 4649 IF K=Q THEN PRINT CHR$(7)::60T0 4429 ARE 
469 WHILE NOT EDF ?VE< 4654 RETURN :QK<e 


MODEMS ATTEL INTELLIGENTS !!! 
TRANSFORMEZ VOTRE MICRO EN 
MINITEL. 


s FULL DUPLEX Leurs SOFTS complémentaires" 
1200/75 Bps de communication “faciles” pour 
“ HALF DUPLEX | # PC et COMPATIBLES vous offrent : 


1200 Bps # ÉMULATION MINITELS 1-1B 
sRÉVERSIBLES | | (40 où 80 colonnes) 


; RÉPONSE aus = récupération sélective des 
AUTOMATIQUE EEE informations transmises par les 
a SYMÉTRISEUR |! Ù = 


di s _. id “« menus déroulants et langage 
INCORPORÉ. de n _. de commande 


= apprentissage intelligent 
«= transcodage des caractères reçus. 


‘Fournis en option 


allet allei DISTRIBUTEURS 


MDE 423 lim - DATA PRINT RTDM TÉLÉCOM INF 
1, rue de l'Yser 10 bis, route d'Ax 74, av. Victor-Hugo 
92210 Saint-Cloud 31120 Portet/Garonne BP 61 - 13170 
Tél. : (1) 46020507 Tél. : (16) 61.50.3000 Les Pennes-Mirabeau 
Télex : 200 584 Télex : 531019 Tél. : (16) 42.02.54.54 
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CATALOGUE 


Ce programme est une exten- 
sion de la fonction CAT de 
l’Amsdos. 

Il regroupe les commandes 
indispensables à la manipula- 
tion des fichiers sur disquet- 
tes. 

Tapez le chargeur BASIC CATLD et 
sauvegardez-le avant de le lancer. Le 
fichier binaire produit sera exécutable par 
RUN''CAT. Il pourra être relancé par 
CALL &9B00 après retour au BASIC. Un 
menu initial propose trois options (lettres 
entre crochets) : 

— <Q>uit, sortie du programme, retour 
au BASIC 

— <F>ormat, formatage <D > ata ou 
<S >ystème. 

— <N>ew, catalogue amélioré. 

Le répertoire complet de la disquette, y 
compris les fichiers cachés (SYS) est pré- 
senté à l'écran. Les fichiers sont triés par 
ordre alphabétique dans chaque user. 
Un curseur se déplace dans le catalogue 
à l’aide de flèches. 

Le nom du fichier concerné est reproduit 
sous le catalogue avec ses caractéristi- 
ques sommaires : USER et STAT. 


Laurent PELOU 


et André CHENIERE 


COPY agit comme bascule de sélection 
(voir commande 'S' ci-après) 
Les commandes disponibles sont : 
— ESC, retour au menu initial 
— <l>nfo, affiche la position sur le dis- 
que (piste et secteur) de l'en-tête du 
fichier en cours ainsi que type, adresse 
d'implantation, longueur et point d'en- 
trée éventuel. Une touche quelconque 
ramène le curseur dans le catalogue. 
Dans le cas d’un fichier BASIC P, de lon- 
gueur inférieure à 36 K, la déprotection 
est proposée. Après l'opération, le pro- 
gramme BASIC est disponible en 
mémoire (ESC puis <Q > uit). 
L'affichage du début d'un fichier ASCII 
ou de type inconnu est proposé. 
— <M3>odif, le curseur se positionne 
sur les éléments modifiables qui sont 
sélectionnés à l’aide de la flèche droite, 
soit : 

e User, modifiable de O à 255 (sauf 
229), flèches haut et bas 

° R/O ou R/W, bascule par la touche 

OPY 


e DIR ou SYS, bascule par la touche 
COPY 
Sortie par RETURN. La sauvegarde des 


modifications éventuelles demande 


confirmation. a 

— e<X>ec, lancement du programme 
s'il est exécutable, après confirmation. 
— <S>elect, sélection d'un ou de plu- 
sieurs fichiers par un nom comportant 
éventuellement les jokers classiques (* 
et ?). La barre d'espacement introduit 
des blancs ou efface le nom. Les carac- 
tères interdits sont rejetés. L'action sur 
RETURN fait apparaître les fichiers sélec- 
tionnés en vidéo inverse. Leur nombre 
ainsi que leur somme sont affichés en 
haut de l'écran. 

— S<W3>ap, inverse la sélection des 
fichiers 

— <D>eselect, réaffiche le catalogue 
initial. 

— <R>en, permet de renommer le 
fichier en cours. Cette commande est 
inopérante si le fichier est Read only (uti- 
liser la commande Modif pour le rendre 
R/W). 

Le nouveau nom doit être confirmé par 
‘YV' pour que la modification soit 
effectuée. 

— <E>ra, efface le fichier en cours ou 
l'ensemble des fichiers préalablement 
sélectionnés. Confirmation est deman- 
dée avant exécution. 


—————————@2 ——— 


lé A=R9BOO:F=RASF L:L= 100: NHILE AX=F:FOR A=A TO AHIS:READ C$ 
15 K=VAL ('H'4CS) :G=S4K 465936 (S4>32707):IF AC=F THEN POKE AK 
26 NEXT:READ D$:1F S{>VAL("&"+D$) THEN 30 ELSE L=L+5:NEND 

25 SAVE"CAT", B, L9BOO, WAF2, LOBOO: END 

36 PRINT CHR$(7): "Erreur ligne“: L:END 

196 DATA 21,FF,AB, 11,40, 06, CD, CB, BC, GE. 07,CD,0F,E9.FD, 24, 0741 
195 DATA 7D,BE, 21,81,BE, 11,F0, 94, 01,03, 00, ED, B0, 3E. C3, 32,0E48 
119 DATA 81,BB. 21, 36,90, 22,82, BE, 21,82, A4, CD,.FC, A3, 21,95, 183F 
115 DATA A4. CD,FC.AS,3E,FF, 32,F4,9A.CD, 69, 9C,FE, 51, CA, CE, 2103 
126 DATA A2,FE, 46, CA, 55, AO, FE, 4E, 20,E4, 06,08, CD, 16, A4, CD. 295 
125 DATA 27.9C.Eb. 7F,28,05, CD, 53, A4, 18,EF, JE, Gb, CD, 27, A0. 30B5 
136 DATA 11,00,97.01,F0,03, CD, AF, CA, CD, EC. 9C, 21, BC, A4, CD. 3934 
135 DATA FCAS,3A,F3, 98, 17,38, 03, 21.CE, A4, CD, FC, A3. 3A,B5, 41E0 
14 DATA 9A,4F,CD, 25,44. 06,05, 21, D8, A4, 79,6. FE, 28.01, 04, 4891 
145 DATA CD,FE.AS. CD, C4, DB, 21,80, 9A,E5.CD.Fb, A3. 21,01, 20, 526F 
15 DATA CD, 75,BB,E1,3E,05, CD, SC, CA, 3D, 96, CD, 25, A4, 21, B2, SAËF 
155 DATA A4,CD,FC, A3, 79,47, CA, 2E, 98, 3D, CB, 3F. CE, 3F, 30, 32, 6341 
160 DATA Bé, 9, 21, 02,01, CD, 75,BE, 21, Be, 9A,SE, 16, 04, 21, 00, 6BEC 
165 DATA 97,4B,42,E5, CD, 7A, DS, DS,EB, 26, 00, CD, ZA, Dé, 19, Di. 718E 
176 DATA 19,F2,E1,05, 11,0€, 00. 19, D1,0D, 28, 04, 7E, A7, 20,E2, 770F 
175 DATA 21,01, 30, CD, 75, BB, 34, B7, A, CD, 25, A4, 21,EB, A4. CD, 7FA5 
180 DATA FC,A3, 21,82, 94, CD, F6, A3, CD, AA, 90, CD, 84, 9C, CD, 69, BAS3 
185 DATA 90, 32,F4, 98.06, dE, 21,58, A4, BE, 23, CA, 78, C4, 23, 23, 9100 
199-DATA 19,F7,CD,53,A4, 18,E7,4F, CD, F7, CD, SE, F, CD, SC, CA, 7A57 
195 DATA 32,F3,94,D6, 41,09, CD, 7D,BC,CD,EB. C9. 3E, 11.CD, 5A, A3FO 
200 DATA BB, 3A,F4, 98, 30, 21, 28,98, 28,03, 21,F4,9F, 31.00, CO, AAGS 
245 DATA ES,CD,53,A4,C3, 06, BB, 21,00,97, 11,0E, 00, AF,47,C9, 8128 
210 DATA CD,FC, A3, 21,30, A5, CD, FC, A3, CD, 8A, BB, CD, 8D, BB, CD, BBEA 
215 DATA 09,BB,30,F5, CD, A6, CA,FE, 59, C9, 2€, 16, 26,01, CD, 75, C3DD 
220 DATA BB, 3E, 14,03, SA, BB, 2€, 03, 18,F2, 06,00, 21, B6, 98, SA, CORE 
225 DATA B4,9A,BE, 38,04, 96,04, 18,F9,Cb:03,6F, 78,47, 3E, 01, DG37 
230 DATA 28,64, C6, 14,10, FC, 87, C3, 75, BB, 21, 14,01, CD, 75, BE. DéDé 
235 DATA CD,AF,A3, 22, BA. 9, CD, C4, A3,EB, CD. E1. A3. CD, FO. AS. E2TE 
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246 DATA 21,8D, A3, CD. FC, AT, 14,32, BB, SA, CD, 25. 44, 21,D5, AS. EACS 
245 DATA 66,06,CD,D9,D9. 3%, 42, d6,08.CD,FE. AS, Zi.DD,AS,CD.F272 
258 DATA DF,.D9,30,45,21,E7, A5, 06. 06.C7,FE, AT, 21,0,85, 11,F92D 
259 DATA 66,92,3E,E5,12,7C,FE, 8D, 28,2D.E5,7E.41,4C,06,FE,FFÈE 
26% DATA ES,28,10,49,7E.A7,20, 18,E1,E5,06,0E,27,7E,E6.7F,062B 
265 DATA FE,26,38,40,16,F6,21,H5,9A,34,E1,E5,0E, 10,ED, Bo, GDBB 
270 DATA Ei.01.26,00,09,18,CB, 11.49,92,21,60,85,ED,53, BC, 12EE 
275 DATA 9A.LA.FE,ES. 28, 61,5, D9,CD,E4. 1,20, 48,05, DD,E1, 1DE 
288 DATA 61,0C,00,49,7E, QE, 03,09, A7,E5, 20, 22,23, 6E,67,5F,24E1 
285 DATA CB,15,CB, 14,4E,09,6D,42,38,47,10,18,F9,09,1A,F3, 2684 
294 DATA SA, A7,FA, 67,90, 10, 10,85, DD, 73,4E, DD. 77,0F,E1,7E, 2EA 
295 DATA CB,3F,86,CB,3F,88,CB,3F,F5,DD,8E.C, DD. 77,0C,F1.378E 
296 DATA 21,80, 9A,8E,77,D1,E1,01,26, 04,49, 7C,FE, BD, 24, 90, 3ESB 
395 DATA 21,10,09,19,EB, 18,93,3A,B5,9A,A7,C8,32,89,94,21.4516 
314 DATA 60,80, 22, HA, 94,21,06,92,34,59,9A,47,3D,28,39,C5, 4Hûe 
315 DATA CD,6D.9E,C1,38,08,D5,11,16,00,19,D1,16,F1,ES,ED, 5272 
326 DATA 58, BA, 9A,61,16,00,ED,B9,ED, 53, BA, SA, D1, 21,10, 00,595 
325 DATA 19,D5,E5,2A,BC, 9A,ED, 52.44, 4D,E1,D1,ED,BG,ED, 53, 6207 
336 DATA BC, 9A,21,89,9A,35, 18, BD, ED, 58, BA, A, 61, 11,00, ED, 6A4é 
335 DATA B6,01,06,05,21,00,8D, 11,06,92,ED,R4,7E,FE,ES, C8, 7117 
349 DATA 23,3E,FF,12,13,6E,6D,ED,B6,23,27,18,EF,11.06,92,7640 
345 DATA 3A,89,94,47,CD,F3, DE, 28,04,CD,EF,A1,D4,E5,21,14,7FIE 
256 DATA 09,19,EB,Ei,10,EE,37,09,21,E9,A5,CD,FC, A3, DD, ZA, BEST 
355 DATA BA, 9A, DD, 7E,4E,57,CD,3F,A4,3E,2F,CD, SA, BE, DD, 7E, 9691 
366 DATA 0F,4F,CD,3F. A4, CD, C4, DB, 21,60, 76, 5D, CD. 6b, Ce, CD, 9805 
365 DATA 92,CE,CD,F9,DE,CD,F3, DB, 26,46, 3A, 12, 78,FE. 42,21, ALAF 
376 DATA À2,D2,38,05,20,44,21,A5,D2,06,63,CD,FE, AS. 2A, 15, AB12 
375 DATA 76,CD,34,A4,2A, 16,76, CD, 36, A4, 3A,12,76,A7,28, iF,AES2 
386 DATA 1F,30,14,21,46,A5,CD,FC, A3, 3A,19,78,FE,91,30,0F, 504 
385 DATA CD,64,90,28,865, 18.08, 24, 1, 76,7C,B5,04, 3, A4. CD, BECE 
396 DATA 66,BB,C3,24,A1,21,07, A5, 18,63,21,.CA, AS, 66,03, CD, C222 
375 DATA FE, AZ, 21,CD,A5,CD, 66,90, 20,E8,21,03,61,CD,73,BB,CA49 


400 DATA 21,06,76,6€,11,E5,06, 13,7E,CD,3F,A4,3E, 20, CD, SA, CFB9 
465 DATA BB,23,19,F4,CD, SA, BB,E1,06,13,7E,E6,7F,FE, 26,30, D79F 
416 DATA 02,3E,2E,CD,9A, BE, 23, 10, F1,CD,E9, CA, OD, 26, D6, CD, DF63 
415 DATA 69,9C,CD,86,9C,C5,F7.AÏ, CD,: 3E,9F,CD,77,BC,EB,ES, EAZC 
426 DATA C5.CD,83,BC,CD, 7A,BC,Di,E1,D5,E5,19,EB,21,83,AE,F4C2 
425 DATA 3A,3B,BD,FE, 98,28, 02,2E,66,06,04,723,27,72,25,10,F98D 
438 DATA FA, CD, 6D,A1,3E,4E, CD, 27, A4, CD, 3E,9F, CD, BC, BC, AF.02F0 
435 DATA Ei,D1,01,06,06,CD,98, BC. CD, 8F,BC,C3,5B,9E, 11,90, AA6 
44ù DATA 76,06,40,21,99,9A,09,21,14, 19,22, BC, 94, CD, A, 90, 111B 
445 DATA 2A, BC, 94,CD,75,BE, CD, 69. 9C,FE, GD, 26,20, 21,0,92,1874 
450 DATA 7E,FE,ES,CA,E2,9F,CD,F3,DB, 28, 18,CD.EF,A1,20,15.228B 
455 DATA 3E,05,CD,EB, CA, 3A, BG, 9A, 12,CD,06,BB,2E, 17,CD, 7C, ZAGA 
46à DATA 9C,18,CA,61,19,00,09,18,D7,FE,F3,26.11,CD, 78, BB. 3685 
465 DATA 7C,FE. 23,20,04,3E,19,18,02,C6.05,67,18,B5,47,CD,55FB 
476 DATA 78,BB,22,BC,9A,7C,4F,FE, 19,78,28,14,FE.E6, 26, 2C,3D63 
475 DATA 7E,C6.09,5F,79,FE,1E,28,01,13,1A,EE, 86, 12,18,8D,451C 
489 DATA:FE,F,20,09,1A,3D,FE,ES, 20,0E,3D, 1B,0B,FE,F 1,20, 4AÛA 
485 DATA 6B, 1A,3C,FE,ES,20,01,30,12,C3,4D,9F,CD,55, A4, C3, 5FT 
498 DATA 59,9F,6B,7A,D6,05,67,CD,E6,A1,CA,24,A1,E8,21,95,5987 
495 DATA A5,CD,60,9C,28,46,CD,F1,9D,C3,24,A1,CD,07,A0,3E.61B8 
596 DATA 4E,CD,27,46,C3, 66,98, 21, 06,85, CD,E6, Al, 20,0E,ES, 6957 
595 DATA D5,EB,7C,C6,05,67,01,0C.00,ED,B0,D1.Ei.61.26,06,7048 
514 DATA @9,7C,FE,8D,20,E4,C9,32,3E, A,21,00,85, 11,69, 42,75ED 
515 DATA 06,604,34,F3,9,4F,17,30,01,55,CD,66,C6,6C.24,24,7AF7 
524 DATA 10,F8,C9,32,3B, A0, 21,00, 76, 11,00,09,CD, 50, A4, 14, 864€ 
525 DATA 61,41,09,18,E5,21,9C,A5,CD,FC, A3, CD, 69,9C,0E,Ci.87CS 
526 DATA FE,44,28,1B,FE,53,C2,2€,9B, 06, 1D, CD, 16, A4, CD, 27,8EC4 
535 DATA 9C,28,05,CD,93,A4,18,F1,3E, 66,CD,43,A6,0E, 41,05, 9302 
544 DATA 66,12,CD, 16,44, 11,06, 04, 21,79, A5,06,0A,CD,FE, A3, 9B2F 
545 DATA CD,63,9C,C1,02,28,98,21,F3,9A,71,05,21,C0.9A,ES, A485 
550 DATA 06,09,72,23,36,00,23,71,23,36,02,27,79,Cb,05, 4F, AB64 
555 DATA Eb,F,FE,0A,38,04,79,D6.09,4F,10,Eb,D5,CD,B1,CS, AFCZ 
564 DATA Di,E1,CD.32,C6,21,79,AS,CD,.FC, AS, 7A, CD, 25. A4, C1. B9DS 
565 DATA 14,7A,FE,28,26,C5, 16,06,CD,63,C7,CB,21,38.05,3E,BFE2 
574 DATA 4E,CD,43,Aû,C3,58, 98, CD, 7A,9C, ED, 5B, BA, 9A. CD, D9,C9BE 
575 DATA D9,36,47,3E,0A,CD,EB, CA, 18,27,21,5F,AS,CD,DE,AS.DiZA 
586 DATA 16,FF,CD. 0D, 42,21, 16,27,CD,75,BB.CD,63,9C,26,F6,D8F2 
585 DATA 3E,02,DD,21,2A,A1,CD,C4,D4,CD,78,BB,7D,FE, 16,28,E119 
596 DATA C3,CD,51,9C,CD, 7A,9C,C3,08,9C,2E,Ai,31,4i,0C,96,E91D 
595 DATA OA, OC, A6,94,21,27,A5,3A, 87,9, A7, 20, 0E, CD, DE, AS,F098 
&äÿ DATA CD,63,9C,24,DF,CD, 6D,A1,C3,FF,9F,CD, 66, 9C, 24, D4,FASC 
695 DATA CD,57,90,32,84,9A,7E,A7,CA,FF.9F,EE, 7F,20,07,ES, 635AZ 
616 DATA D5.CD,6D,A1,D1.E1,19,3A,B4, 94,30, 18,E6,CD,AF, AS CFE 
615 DATA 36,E5,70,D6,05,57,5D,C3,07.A4,3E,FF, 18.08, 21,DE, 1SED 
624 DATA A4.CD,FC, 43,50, CD, OD, A2, AF,32,H9,9A,CD,57,9C.7E, (DIE 
625 DATA A7,28,18,D5,E5,E5, 21,89, GA, 4E.QC,E1, 28.04, 3C. CC, 24A4 
638 DATA B4,A1,CC,D3,41,E1,D1.19,04,18,E4,32,B4, GA, CD, 74, DCE 
635 DATA 9C,C3,F6,9B,23,11,Aû,9A,CS, 06,60, 7E,E6, 7F,4F, 1A, 3546 
648 DATA Eb,7F,FE,2E,28,08,FE..3F,28,07,89,20,04,25, 13, 10,3492 
645 DATA EA,C1,C9,C5,78,32,H4,9A, CD, BA, 9C, CD, 47,A3,C1,09,44F7 
65ù DATA E5,D5,06,0C, 1A,BE, 20,04, 23, 13,10,FB,Di,E1,C9, 14. 4892 
655 DATA 4F,7E,B9,C,C3,23, Dé, CD, 57,90, 7E.À7,20,09,32,B7,5IBE 
bbè DATA 94,32,B2,9A,C3,C2,9B,F6,FF,77,19,18,ED, 21,45, A5, 5038 
665 DATA CD,FC.A3,D5,21,4F,A5, 11, A8, 9A DE, GC, ED, BG, D1,21, 64 
678 DATA 16,1B,CD,75, BE, 21, A6, GA, DE. 00, CD, 69, SC, SF, FE, OD, 8875 
675 DATA 26,0A,3A,A0,9A,FE, 20, C0,E1.C3,24,A1,FE. ZA, 24,08, 72AÀ 
684 DATA 7A,A7,20,0D,1E,3F,18,58,FE,3F, 20,64, 7A,47,7B, 28, 77F6 
485 DATA 39,CD,53,A4,18,D4,FE, 20,38,F7,28,44,FE,F2,29,18,7FEA 


490 DATA 79,06, 08, A7, 28, SA 06, 01,FE, 09, 20, 01,04, 3E, 08, CD, B3B3 
895 DATA SA,BB,0D, 28, 19,F9,18,B2,FE.F3, 20. 0€, 79,FEOB, 28, BASC 
706 DATA 9E,04,01,FE, 07, 20,01, 04,18,36,C5,E5,01, 11, 00, 21,BE96 
795 DATA E2,DB,ED,B1.E1,C1,28, 9. CD, 54,88. 77,00, 27, 18, 14, 96F8 
716 DATA 79,FE.09,3E, OC, 30,02, 3€, 08,91,47,7E, CD, 5, BE, 77,9CE6 
715 DATA OC. 23, 10,F8, 79,FE, OC. CA, ÎF,A2,FE, 08, C2, ZA, A2, 04, A3CS 
726 DATA 3E,09, CD, SA,BB, 0C, 23, 10,F9,C3, 2A, A2. 01,60, 96, FD, AA49 
725 DATA 71,01,18,39, CD, 7A, 90, CD, 3E,9F. CD, 77,BC.F5, CD, 7A, E2DS 
736 DATA BC,F1,FE,02,38, 18, 28, 0B, 06,08, 21,94, CB, CD, FE, AS, BADA 
735 DATA C3,21,A1,21,6F,00, CD, 9F, CA, 7E, 23, Bb, 28,EA, 21,39, C118 
749 DATA AS,CD,DE, A3, CD, 63,90. C2, 24, A1, 01,22, CA,CS, 21,FÜ, CA2I 
745 DATA 94,11,81,BB,01,03,00,ED,B0,3E.01,CD,0E, BC, CD, FF, D14B 
756 DATA BB,C1,21,8F,9A, 71,28, 70,28, DE, 00, CD, OF, 9, ZA. 38, D7é 
755 DATA BD,FE, 98, CA, 74, DD, JA SE, BD,FE, EF, CA, 65, DE, C3, ô, E240 
760 DATA DE, CD,47,A3,C3,F0, 98, CD, 87, A3, 7E, EE, 80, 77,F9,ES,EDE7 
765 DATA F4,9C,BB,E1,CD,E7, AE, 00, 09,5E,F1,F5,F4, 90 BE, F7EC 
776 DATA F1,234,82,98,21,87, 94, FA, GE, A3,83,34, 18,02, 93, 35,FF49 
775 DATA 32,82,94,C9,CD, A4, A3, A7, 20,01, 78, 3D, 18,08, CD, A4, 06E2 
786 DATA A3, 30, BB, 20, 01,AF, 32,84, JA C3, 08, 90, CD, A4, A3, 96, EAA 
785 DATA 30,F4,86,B8,38.FC, 18,F7, CD, A4, A3, 86, BB, 38, E7. 96, 1856 
798 DATA 30,FD, 18,F7, 3A, B4, 98, 21,85, 94, 46, 21, Bb, 74, C9, 21,202B 
795 DATA 06,92,11,10,00, 18,03, CD, 57,90, SA, B4, 94, 47, 47, CB, 25F7 
808 DATA 19,19,FD,C9, 11,90, 9A.E5,D5, 7E, FD, 77,01, 23, 01.08, 2CFA 
805 DATA 60,ED,B0,3E, 2€, 12,13,0€,03,ED, Bd. D1.E1.C9. CD, FC, 351A 
819 DATA A3.CD,41,9F,C3,FE, AS CD, C4, A3,E5,D5, C5, C3, 88, DS, 46A1 
815 DATA ES,D5,05,C3,93,D5,E5,D5,C5,C3, 90.05, 46, 23, 7€, 17, 4AFC 
826 DATA E5, DC. 9C, BB,E1, 7E,Eb, 7F, CD, SA, BB, 7E, 17,65, DC, 90, S5AC 
825 DATA BEB,E1,23,10,E9,09,21,F4,A4,CD,FE. A3, 21. 11,45, CD, SEFB 
830 DATA FC, AS, C3, 06, BB, D5, C5, 5F, 16, 04, CD, 39, CB, C1, Di, C9, 6856 
825 DATA 3E, 20, CD, SA,BB, 3E, 26, CD, SA, BB, 7C, CD, 3F, 4,70, F5, 7086 
84ù DATA 1F,1F,1F,1F,CD, 48, A4,F1,Eb, 0F,C, 90, 27, CE, 49, 27,7753 
845 DATA C3,54,BE, 3E,07, 03,54, BB, 4, 47,9F,44,F7,A1,45, 34, 7EDÜ 
850 DATA A1,49,28,9E,52,E7, A0, 52, 7E, 41,57, 7A. A1, 58, D4, A2, E70B 
855 DATA Eb,41,A3,F0,74,A3,F1,7E AS F2BC AS, F3, 98, A.FC, 9233 
8éû DATA 28,98, 12,04,02, 1C, 00, DE, 0€, 1D, 01,01, 10,01, 00, 0, 9382 
865 DATA 1A,01,4F,06,18, 10, 1F,01, 14,30, 51,32€, 75,69, 74, 20, 9691 
876 DATA 20,3C,4E, 3,65, 77, 20,20, 30, 46, 3E, 6F. 72, 6D, 6, 74, 9878 
875 DATA 20, 20,09,48, 20,86, 72,85,65, 1F, 24, 01.09, 00, 46, 6F, SEEZ 
880 DATA 72,6D,61,74,3A,20,07,64,61,74,61,1F,16,41409, 73, 
885 DATA 79,73,74,65,6D, 1F, 16. 01, 20, 66, 69,60, 65, 73,07, 1F, ABdé 
890 DATA 01, 18,53,65. 40,65, 63, 74,08, 20, 73,65, 60. 65, 63, 74, AD2E 
895 DATA 85,64, 20, 20,0, 1F, 1D.0E, 49, BE, 73.65, 72, 74, 20,74, BIBD 
900 DATA 41,72,67,65,74, 20, 1F, 23.08, 20,73. 79, 73, 74,65, 6D, B6D2 
905 DATA 20,15,64,69,73,63,1F, 1D,GC, 12, 70.72.65, 73, 72, 20, BESI 
916 DATA &1,6E,79, 20,68, 65, 79,08, 1F, 01, 16,45,52, 41,20, 29,BF58 
915 DATA 08,20, 20,20, 79,2F.4E, 3F,20,05,52.55, dE, 26, 26,05, 0274 
926 DATA 52,45,4€, 20,20, 16, 1F. 15, 1b,6E. 61.60, 45, 3A, 20, 26, C4 
925 DATA 26, 20,20, 20, 20, 26, 20, 2E, 20, 20,20, 17, 10. 1F.01, 14,C7E4 
920 DATA 46,6F,72,6D, 61,74, 38, 20,30, 44,3, 61,746, 20, 2C, CCF? 
925 DATA 53,32€, 79,73,74,65, 6D, 20,26, 13, 1F,1D, GC. dé, 6F,72,DI70 
940 DATA 6D,61,74,74,69,E,67,20,74,72,61,63, 68,07, 1F, 15, D6E0 
945 DATA 14,75,73,72,20,10,1F.01, 1e, 14,536, 76,65, 25, 63, DADA 
950 DATA 6B,61,8E,67,65, 73, 08, 26, 70,72,6F, 74,65, 63, 74, 45, E0EÛ 
955 DATA 44, 15,00, 0,08, 52,65, BD, 6, 76. 54 20, 704 72. 6F, 74, ESCD 
96b DATA 45,63,74,69,6F,4E, 20,41,53,43,3F,3F,23F,07, 60, OA, EAZD 
965 DATA 0A,72,65,61,64,1F,1E, 14,52.2F.57. 06, 4F, 26, 20, 44, EDD7 
976 DATA 49,52, 14,20, 20,53,99, 53, 14,08, 1F.29,14,54,2F,53,F113 
975 DATA 34, 20,060,00, 00, 00, 09, 00, 09, 00, 0ù, bb, dÔ. 09, 06, 09,F1éDe 


a 


TASWORD 
, Saga... 


Voici 3 ans la presse informati- 
| que saluait TASWORD 464 en 
Le Le PR ces termes : «Il n'y a pas de 
“M WP 4 meilleure raison d’ acheter un 
S CPC que ce programme L» 

TASWORD 464 (FF 260.- tic) fut 
suivi de TASWORD « D » MAIL-MERGE pour ac- 
commoder les disquettes et le 664. En 1985, 
TASWORD 6128 MAIL-MERGE (TASWORD « D » et 
TASWORD 6128 sont vendus sur la même 
disquette à FF 360.- ttc) avec sa massive mé - 
moire texte de 64 Ko vit le jour et devait bien- 
jôt être accepté comme le standard sur le 6128 
et les 464/664 avec extensions DK'tronics. 


1986 vit l'arrivée de 


TASWORD 8000 PCW 


vitesse et « mailmerge » en plus ! 

Le traitement de textes qui rend sa rapidité et 
sa mémoire aux PCW 8256/8512 leur offrant par 
la même occasion le premier MAIL-MERGE 
incorporé et l'accès aux imprimantes externes. 
Tasword 8000 peut utiliser les fichiers Locoscript, 
Dbase, Wordstar, Multiplan etc... (FF 450.- tic). 


TASWORD PC 


Un vent de renouveau... 

Le printemps 1987 vit la naissance de TASWORD 
PC, un vent de simplicité et de puissance (sans 
parler d'économie... FF 490.- ttc) souffle sur les 
« compatibles ». Face aux mastodontes du trai- 
tement de texte, TASWORD propose à un prix 
calculé, une solution qui en fait plus ; TAS- 
WORD PC fait avec efficacité ce que la majorité 
des utilisateurs souhaitent, il simplifie l'écriture. 
Un manuel complet et didactique, un pro- 
gramme d'auto-apprentissage et bien sûr MAIL- 
MERGE accompagnent TASWORD. Sémaphore 
assure le transfert des fichiers Tasword CPC ei 
PCW sur disquette 5°1/4 (+FF 9.- la page A4). 


Des talents de typographe.… 


RES accompagne TASWORD depuis 
NEC ; 
4 le début et vous permet de 


à faire des merveilles avec voire 
} imprimante matricielle, cinq po- 
4 lices de caractères sur CPC, huit 

Æ sur PCW et plus de vingt sur PC, 


plus sur ce dernier un créateur de polices sim- 
ple et puissant. TASPRINT s'utilise aussi seul 
pour imprimer tout texte ASCII (Locoscript, Word- 
star etc...) Sur PCW ei PC, TASPRINT possède un 
mode « machine à écrire » très pratique pour 
les textes courts. ( TASPRINT CPC et PCW FF 
250.- tic - PC FF 390.- ttc). 


le dernier né des laboratoires 
Sémaphore-Tasman ! 
Des talents d'artiste en lettres. 
Créez vous-même enseignes, ré- 
>) clames, affiches. TAS- Sign fait 
(S) passer le message clairement et lisi- 
€ blement ! Quatre écritures caractéris - 
mA tiques pour toutes les occasions, de 
4 à 19 centimètres de haut, itali- 
a que, soulignement, espacement pro” 
: portionnel, cadrage et centrage auto- 
matiques, huit options de tramage. 
TAS - Sign imprime dans la hauteur ou 
la largeur du papier ef Sur la longueur 


a — D ‘œC (papier continu) (TAS-Sign 
Cd 


CPC et PCW, FF 250.- tic - PC, FF 
390.- ttc). 


MASTERFILE 8000 


La base de. données (fichier) relationnelle 
écrite en langage machine pour le PCW... 
(pas encore un autre programme BASIC ou 
CP/M réchaufté à la sauce PCW !). 

Là où les autres vous obligent à faire un choix 
entre fichiers en RAM rapides mais de capacité 
limitée, et des fichiers en accès direct sur dis- 
quettes, de grande capacité mais encombrants 
car de longueur fixe, MASTERFILE et le disque 
RAM du PCW travaillent ensemble pour vous 
proposer une grande capacité et un accès 
rapide à des données de longueur variables. 
100% en langage machine, entièrement piloté 
par menus, MASTERFILE 8000 est aussi accompa- 
gné d'un manuel didactique complet et de 10 
exemples directement utilisables (adresses/éti- 
quettes, faciurier, bibliothèque, discothèque, 
gestion clientèle, gestion articles etc..….). Un 
fichier MASTERFILE se crée rapidement sans con 
naissances de programmation, directement à 
l'écran comme dans un programme de dessin. 
Vous gardez intactes les possibilités de votre 
imprimante. Masterfile peut importer et exporter 
tout fichier ASCII. (FF 550.- ttc). 


SEMABANK 


tenue de comptes bancaires 
pour tous CPC ( disquette ) 


Ergonomie et rapidité sont les ca- 
ractéristiques de ce programme 
écrit 100% en assembleur. Calqué 
sur un relevé bancaire classique, SE- 
MABANK évite toute gymnastique 
mentale inutile ! (FF 330.- ttc). 


le premier programme de statistiques 
sur CPC ! 


Suivi, lecture, sauvegarde et correction des 
données, impression des résultats. Statistique 
descriptive, 10 tests paramétriques - régression 
linéaire, comparaison de moyennes, analyse de 
profils, analyse de variances à 1 et 2 critères, 
analyse discriminante, etc. - Tableaux et gra- 
phismes. Manuel détaillé avec notions théori- 
ques. Un outil professionnel d'étude stastique 
pour les recherches de moyenne envergure ou 
le test de recherches plus larges. (SEMASTATS 
disquette FF 395.- ttc) 


Dis-mois ce que tu manges etje te dirai 
qui tu es... (CPC 6128 et PC) 


S'il est agréable pour l'estomac de manger un 
bœuf Wellington, il peut être intéressant pour 
l'esprit de savoir ce qu'il y a dans le bœuf Wel- 
lington. Basé sur une table de plus de 800 (1000 
sur PC) aliments subdivisés en 16 nutriments, 
ALIMENT vous permet une analyse détaillée de 
la composition de votre nourriture par repas et 
par jour. Un programme conçu pour une utilisa- 
tion professionnelle en diététique mais d'un 
intérêt certain pour celui qui s'intéresse de près 
à son alimentation. Ecrit par un médecin avec 
l'assistance du service de Diététique et de Dia- 
bétologie de l'Hôpital Universitaire de Genève. 
(ALIMENT CPC FF 1 500.- tte PC FF 3 800.-itc dis- 
ponible en VPC seulement). 


Les produits Sémaphore sont disponibles auprès de 
Pour la France, Sémaphore p.a. DMS-Diffusion av. du 


Es. 


GRAFPAD III PCW et PC 


(disponible en VPC seulement) 

La tablette à digitaliser de niveau 
professionnel dotée d’un program 
me dessin assisté de hautes perfor- 
mances : POWERCAD ( Sur PCW, 
manuel en français FF 1 850.- ttc - 
sur PC manuel et logiciel en fran- 


çais FF 2 495.- ttc). 


gestion des catalogues de 
disquettes 3” sur exe 


N'avez-vous jamais, VOUS qui avez plusieurs 
dizaines ou plusieurs centaines de programmes 
sur disquettes, rêvé de pouvoir : classer vos 
programmes par « genres » ou « types », com- 
menter brièvement chacun d’entre-eux el, évi- 
demment, retrouver immédiatement celui que 
vous recherchez ? SEMFICH vous le permet | 45 
codes de classement, 98 faces de disquettes, 
commentaires de 48 signes, listes écran et 
imprimante, recherche, mise à jour automati- 
que, pour 6128, 664, 464+ drive, toutes impri- 
mantes, lecteur B. (SEMFICH FF 330.- ttc). 


Et toujours, pour CPC : 


MASTERFILE II| la base de données relation- 
nelle (FF 360.-tic) eî MASTERCALC 128 
(FF 300.- ttc) le tableur simple, puissant et 
rapide pour le 6128 et les 464/664 équipés de 
l'EXTENSION 64 K DK'tronics (FF 465.- ttc). 
TASCOPY, le programme de copie d'écrans 
en 8 tons de gris aux formats A4 & A3 
(FF 230.- tic). 

Le CRAYON à fibre optique _(FF 350.- ttc 
A64/664 - FF 445.- tic 6128) & le DIGITALISEUR 
(Scanner) DART pour DMP2000/3000 
(FF 750.- ttc). (Bientôt en versions PCW et PC...). 
Pour ceux qui ont le nouveau connecteur BUS 
6128, le câble RACCORD/CONVERSION 
qui vous permettra de raccorder toutes les 
extensions (synthé, scanner, multiface etc...) 
utilisant l’ancien connecteur (FF 175.-ttc). 


s meilleurs revendeurs spécialisés ou directement : 
Salève 01220 Divonne-les-Bains tél. 50 20 79 85 


Pour la Suisse, la Belgique, autres Pays, et payements par Cartes Visa, Eurocard, Diner's, American 


Express : commandes téléphoniques au 54 11 95 


Sémaphore distribue les ordinateurs Amstr 
ponibles dans notre magasin : Sémaphore, 94 rout 


(Genève) du mardi au vendredi. 


ad / Schneider en Suisse. Nos logiciels sont dis- 
e de La Plaine CH - 4283 La Plaine (Genève). 


ATELIER ES 


EDUCATIF 


CONJUGUE 


Jean REINGOT 
Fe 


Je programme, tu programmes, il pro- 
gramme, nous programmons.. Facile ! Je ne 
arle pas de la programmation mais de la con- 
L aison du verbe programmer. En revanche, 
‘choir’’ vous posera sûrement quelques 
problèmes. 

‘Conjugue’’ se propose de vous aider à résou- 
dre ces cas épineux. ‘’Conjugue”’ décline tous 
les verbes français. 

Oui, j'ai bien dit TOUS. Essayez de le coller, il 
en connaît un rayon, le bougre ! 


Les caractères X des lignes 140, 3960, 4310, 
4480 et 4940 s’obtiennent en tapant simul- 
tanément CTRL et X 


44 


LE AIO RE“ 
26 ‘#44 FOUR LE CPC 464 ##4 #PC£ 
10 ‘+4 SUPPRIMER LES LIGNES 4754-4846 ## 2PDX 
LUTTE ST ES SES IS ESS TES ESS SSS SES ESS LS SS) VE: 
DO HN AFP: 
CURE LES CONJUGAISON ##x 266< 
70 ‘#44 JEAN REINGOT +#4+ 2 XH< 
84 ‘+4 Version 464-bb4-6128 ##4 2NJ< 
0Q ‘+44 Mai 1987 LEE 
UMTS SES ISEESES SE ESS ESS ESS SES SSL SE 
LADA 
120 ‘*## CHARGEMENT DES TABLEAUX #44 
ROME TT TITI IL LEE ELLES LS SSSSESSESSS 

| 146 ap$=" TT Appuyez sur une touche X" 
158 DIM T$(B} 
166 t$(1)="Indicatif Present" 


t$(2)="Indicatif Impartait" 


180 t$(3)="Indicatif Passe Simple" 
190 t$(4)="Indicatif Futur Simple" 
200 t$#(5)="Conditionnel Fresent" 
216 t$(6)="Sub jonctif Fresent" 


220 t$(7)="Subjonctif imparfait" 
230 t#$(8)="Imperatif Fresent“ 


249 DIM p$téi,inf$(11),ipa$(15i ,hm$(29),vi$(13) ,vt#(7) 

259 DIM te$(B,44,6):DIM m$(8.,6) 2XHE 
268 FOR p=i TO 6:READ p#$(p):NEXT 2RJ 
278 GOSUB 454% ?GK£ 
286 FOR inf=i TO 11:READ inf$(inf):NEXT ?BL< 
290 FOR ipa=i T0 15:READ ipa$(ipa):NEXT > XM< 
306 FOR hm=i TO 29:READ hm$ (hm) :NEXT >UD< 
316 FOR vi=1 TO 13:READ vl$(vi}:NEXT ?EE< 
326 FOR vt=1 TO 7:READ vt$ivti:NEXT #HF< 


330 t=i >164 
340 RESTORE 2630 
350 FOR cp=1 TO 40:FOR p=1 TO 6:READ te$it,cp,ph:NEXTIN >BJX 
EXT 

36û t=2:RESTORE 3030 >CK< 
370 FOR ci=1 T0 2:FO0R p=1 TO 6:READ te$(t,ci,p):NEXT:NE >PL 
XT 

380 t=3:RESTORE 3050 HM£ 
399 FOR cps=i TO 5:FO0R p=i TO 6:READ tef(t,cps,pi:NEXT: >QN< 


NEXT 

400 t=4:RESTORE 3190 
419 FOR cf=1 TO 1:FOR p=i TO 6:READ te$(t,cf,p):NEXTINE >BF< 
XT 


DXE< 


420 t=5:RESTORE 3110 >BG< 
430 FOR cc=i TO 1:FOR p=1 TO 6:READ te$(t,cc,p):NEXTINE >XH< 
XT 

440 t=b:RESTORE 3120. >FJ< 
450 FOR csp=1 TO 20:FOR p=i TO 6:READ te$(t,csp,p):NEXT ?LK< 
:NEXT 

460 t=7:RESTORE 3320 ?LL< 
478 FOR csi=i TO 5:FOR p=1 TO 6:READ teñit,csi,p):NEXT: ?2M< 
NEXT 

480 t=8:RESTORE 3378 ?VN£ 
490 FOR i=1 TO 34:te$(8,i,1)=""ites(8,i,2)=te$(1,i,1):t >MP< 
e$(8,i,3)="":te$(8,i,4)=te$(i,i,4):te$(B,i,5)=te$(1,i,5 
):te$(8,1,6)="":NEXT 


500 RESTORE 3370 DFF< 
510 FOR p=1 TO 6:READ te$(8,34,p}:NEXT >MG< 
920 CLS:BORDER 13:INK @,13:PAPER 0: INK 1,0:INK 2,0:INE ?KH< 
3,4:PEN 1 

530 GOSUB 4930 »JJ< 
SD HE >LK< 
550 ‘#4 MENU #4 ?VL< 
OÙ |? HIHI >NM£ 


570 MODE 1:LOCATE 5,16:PRINT "Consulter. ....,.,,,,,-1-" CN< 


58% LOCATE 5,12:PRINT "Exercices. ...........-2-" >HP< 
590 a$=INKEYS: IF a$="" THEN 590 >1QK 
680 ch=VAL(a$):IF ch£i OR ch>2 THEN PRINT CHR$(7):G60T0 >26< 
590 

610 IF ch=2 THEN CLS:G0T0 4176 >RH 
DD HER DKJ< 
630 ‘#44 ‘CHOIX DU VERBE ### }QK< 
NUM TT ETS SSI SI SI LL SLT SSI >ML< 
650 CLS:MODE 2:PEN i ?NM€ 


669 PLOT 0,382:DRAN 450,382: DRAW 459,334: DRAW 0,334: DRA >KN&< 
W 0,382: LOCATE 5,3: INPUT "Verbe a conjuguer"; v$:v$=LON 
ER$ (v$) :CLS 


670 FOR i=i TO 11:1F v$=inf$(i) THEN CLS:60T0 3850 >YP< 
680 NEXT >UQ< 
690 FOR i=1 TO 15:1F v$=ipa$(i) THEN CLS:G0TO 3860 >CR< 
700 NEXT >LH< 
710 IF v$="beer" THEN CLS: GOTO 3879 ?LJ< 


720 1$=LEFTS(V$,1):1F 1$="a" OR i$="e" OR i$="i" OR 1$= >TK< 
“o" OR i$="u" OR i$="y" THEN p$(1)="3;"" 


730 FOR i=1 TO 29 LL< 
740 IF v$=ha$(i) THEN p$(i}=";"" >BM< 
750 NEXT JRN< 
760 IF v$="maudire" THEN v$="maudir" ?EP< 
770 IF v$="bruire" THEN v$="bruir" >WQ< 
780 1=LEN(v$) >KR< 
790 RIS=LEFTS (v$, 1-1) >PT 
800 r2$=LEFTS (VS, 1-2) >HIK 
819 r3$=LEFT$(v$, 1-3) >LK< 
820 r4$=LEFT$(v$,1-4):1F 1<5 THEN 850 NL 
830 ri$=LEFT$(v$,1-5):1F 1€6 THEN 850 > TM< 
© 840 ré$=LEFT$(v$, 1-6) ?WN< 


850 imp=0:DEFe=Ù ?WP< 
BED * HIER RG 
870 ‘#44 CODAGE VERBES EN ER  #+## )NR€ 
BBQ ‘HIHI DUT< 
890 r=2:a=1:60SUB 3790 >YU< 


900 IF v$="aller" THEN r$(1)="":k(1)=35:r$(4)="ir"ir$(S >UK< 
J="ir"ir$(b)=r4$:k(6)=19:r$(B)=r0$:k(8)=34: j=1: GOT 341 

0 

910 FOR i=i TO 7:IF vé=vt$(i) THEN 1030 ?FL< 
920 NEXT >QM< 
950 IF RIGHT$(v$,4)="eter" THEN k(1)=4ir$(4)=r2$+"ter": >MN< 
r$(i)=r$(4):k(é)=3:k(8)=4:GO0TO 3410 


940 FOR i=i TO 13:IF v$=vl$(i) THEK 1036 >1P< 
950 NEXT ‘ >UK 
960 IF v$="greler" THEN 1069 ?KR£ 


978 IF RIGHTS (v$,4)="eler" THEN k(1)=5:r$(4)=r2$+" ler": CT< 
r$(5)=r$(4}:k(8)=4:k(8)=5:60T0 3410 

984 IF v$="importer" THEN CLS:LOCATE 5,19:PRINT “dans 1 >KUK 
e sens de {avoir de l'importance?  1":LOCATE 5,12:PRIN 

T “dans le sens de {introduire} 2" ELSE 60 

T0 1920 

990 a$=INKEVS$ :1F a$="" THEN 996 >HV< 
1000 b=VAL(a$}:CLS:1IF b<£i OR b}2 THEN PRINT CHR$(7):60T >EB< 
0 1000 

1616 IF b=1 THEN imp=1:60T0 3410 ?CC< 
1920 IF RIGHTS (v$,6)="nvoyer" THEN r$(1)=r3$:r$(8)=r3$: JD 
kK()=S:k(B)=S:r$(b)=r3$:k (8) =21r$ (4) =r4$+'err"ir$(S)=r$ 
(4):60T0 3416 

1930 IF RIGHTS (v$,4)="ayer" OR RIGHT$(v$,4)="oyer“ DR R ?TEX 
IGHTS$ (v$,4)="uyer" THEN r$(l)=r3$:k(1)=3:r$(4)=r3$+"ier 
rr$(S)=r$ (4) sr$(é)=r3$:k(b)=2:r$(8)=r3$:k(B)=3:GOTO 34 

19 

1049 IF RIGHT$(v$,3)="ger" THEN k(1)=2:k(2)=2:k(3)=2:r$ >VF< 
(7)=ri$:k(8)=2 

1959 IF v$="neiger" THEN imp=1:60TD 3410 >UG< 
1960 IF v$="bruiner" OR V$="brumer" OR v$="greler" THEN >FH< 
imp=1:G0TD 3410 


1970 IF v$="resulter" THEN imp=2:60T0 3410 >BJ< 
1089 IF RIGHT$(v$,2)="er" THEN 3410 ?CK< 
1090 HERBE >PL< 
1109 ‘#44 CODAGE VERBES EN IR  ### >FC< 
PEUR SCLELLLLC LLC LLC ELCELEELCEELS ECS >6D< 
1120 r=4:G0SUB 3790 | XKE< 


1139 IF v$="avoir" THEN r$(t)=""sk(1)=3éir$(2)=r3$:r$ (3 >YF< 
='e"sk(S)=4:r$(4)=r4$t'ur ir$ (5) er$ (4) :k(6)= 15: r$ (7)=r 
$(3):k(7)=4:k(8)=3:60T0 3418 

1149 k(1)=6:r$(2)=r4$+"en":k(3)=5:r$(4)=r4$+"iendr":r$ >DG< 
(5)=r$(4):k(8)=7:k(7)=5:k (8)=6 . 

1150 IF v$="advenir" THEN iap=2:60T0 3410 >6H< 
1160 IF RIGHT$(v$,4)="enir" THEN 3410 >TJ< 
1170 IF RIGHTS (v$,6)="querir" THEN k(1)=7:r$(2)=r28:k (3 >YK< 
)=3:r$(4)=r2$4 "rs ré (S)=r$ (4): k(6)=8:k(7)=3:k (8)=7: GOT 
3410 . 

1189 r=2:a=1:G0SUB 3790:k(3)=3:k(7)=3 )RLK 
1190 IF v$="faillir" THEN d=7:60T0 3419 >JM< 
1200 IF v$="saillir" THEN CLS:LOCATE 5,10:PRINT"dans le >ED< 
sens de <sortir,jaillir>  1"“:LOCATE 5,12:PRINT"dans 

le sens de <etre en saillie» 2" ELSE GOTD 1249 
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1219 n$=INKEYS: IF n$="" THEN 1219 

1229 n=VAL(n$}:1F n>2 OR ni THEN 1210 
1234 CLS:IF n=2 THEN 
GOTO 3416 ELSE GOTD 186û 


1240 IF RIGHTS (v$,4)="vrir" DR RIGHTS(VS,4)="trir" OR R :Y 


IGHT$ (v$,6)="aillir" THEN 2416 


1259 IF RIGHTS (v#,8)="cueillir" THEN r$idi=ri$t'er"irg( 


S)=r$(4):G0T0 3419 

1264 IF v$="ressortir" THEN CLS:LOCATE 5,16:PRINT "dans 
le sens de {sortir a nouveau;  {":LOCATE 5,12:FRINT"da 
ns le sens de ‘etre du ressort de: 2" ELSE GOTO 1366 
1276 m$=INÉEYS: IF m$="" THEN 1270 


1286 c=VALim#i:IF c>2 OR c£i THEN PRINT CHR$(7):G0T0 12 ; 


76 
1294 CLS:IF c=2 THEN 1866 


13606 IF vé="repartir" THEN CLS:LOCATE 5,16:PRINT'dans 1 


e sens de ‘partir a nouveau: {':LOCATE 5,12:PRINT"dans 
le sens de ‘partager: 2" ELSE GOTO 1344 
1316 F$=INEEVS: IF f$="" THEN 1314 


1320 F=VAL (FH): IF #52 OR #21 THEN PRINT CHR$(7::GDTD 13 


16 
1326 CLS:IF f=2 THEN iB66 
1346 IF v$="assortir" THEN 1860 


1354 IF RIGHTS (vé,4)="ntir" OR RIGHTS (vé,4i="rtir" THEN CEE 


r$(t)=rz$ik(ti=ir$(Bierz$ik(8)=9:G0TO 3416 


1369 IF RIGHT$(v#,5)="vetir" THEN k(1:=8:k(6)=8:G0TD 34 ; 
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1376 IF RIGHT$(vé,8)="bouillir" THEN r$(l)=r5$:k(1)=18: 


r$(Bi=r3$ik(8)=16:G0T0 3416 


1384 IF RIGHT£(vé,6)="dormir" THEN r$(ii=ri$ik(f)=1ir$ “EN< 


(8)=r3$:k(8)=11:G0T0 3416 
1396 IF v$="asservir" THEN 1864 


1469 IF RIGHT$(VÉ,6)="servir" THEN r$(1)=r$ik(1)=idiré ;1 


(B)=r3$:k(8)=14:G0TD 3410 
1419 k(1i=1S:k(B}=15: 


1426 IF RIGHTS (Vé.4i="fuin" THEN r$(fi=rig#"ytik(é)=2:6 à 


OTO 3419 


1438 IF v$="ouir" THEN CLS:LOCATE 1,16: FRINT'Ne s emplo : 


ie qu'a l'infinitif":LOCATE i,1Z2:PRINT'et dans € j'ai 0 
ui-dire >" 


1446 IF Vé="ouir" THEN LOCATE 1,14: PRINT'"En honnage a R #ÉF< 


aynond Devos voici sa conjugaison": LOCATE 25,24:FRINT a 
pi CALL BBBiBrré(l=ritir$(Di=riet "vtr (bi=ritiré(bizr 
3$:k(b)=2:r$(8)=r2#:CLS:GOTO 3416 

1458 kCSi=4ir$(4i=r2$+"rtir$(Sisr$ (4) LE (7)=4 


1469 IF RIGHTSivé, &)="courir" THEN k(1)=12:k(8)=12: 6070 : 


3416 
1476 IF v#="mourir" THEN r$(i)=rS#ik(ii=iisréibisrSgiht 
bi=tô:r$(8i=r5$:k(8)=13:G0T0 7416 


1486 IF vé="gesir" THEN r$(i)=r4$+"itsk(l)=tiré (Giant FF 


li+'s":d=2:G0T0 3416 


1499 IF RIGHTS (v$,6)="cevoir" THEN r=5:a=]l:GDSUB 3798:E QE 


(i=iéir#(2)=ri$ik(T)=dir$(4i=riéetrtiré(Sier$ (Ask (és 
Q:k(7)=4:k(8)=16: 6070 3416 
1568 IF l£6 THEN 1598 


1519 r=b:a=i:GOSUB 2796:k(1)=17:r$(2)=r2$ik(Ti=dir$(4)z : 


ragtrter$(Sizr$ (4): (b)=11:k(7)=4:E(B)=17 
1526 IF v$="promouvoir" THEN CLS:G0TO 3966 
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inp=2ir$(4)=r2$+'er "tiré (S)=r$ (4): :P 


1536 IF RIGHT$(v#,7)="mouvoir" THEN 7416 
1546 IF v$="pleuvoir" THEN imp=i:d=1:60T0 3416 


1558 IF v$="pouvoir" THEN k(11=34:r$(4)=r4$4tpptin$ (sis à 


r$(diir$(é)=réb+"uiss":E(6)=i:d=1:G0T0 416 
1568 r$Cii=rStiré(é)=rS$iré (71275 


1574 IF RIGHTS (V$,6i="devoir" THEN réili=rS$ik(ii=iéik( 


hi=9:r$(B)=r5$:k(8i=16: GOT 1414 


1586 IF v#="savoir" THEN r$ili=r4giE(liz7Siré$(di=ragatu ; 


r'ir$is)=r$(4)ir$(bizra$t "chti (éi=tire(Bi=r$igisE(s)= 
:G0T0 3414 


1599 r=ia={iGOSUE 7796:k(1i=iSir(2)=rage "y tiré (Tiré 


tHC=diE (6) =ir$(7)=ribiE (Tizi k(B)=15 
iéëé IF vé="pourvoir" THEN 34i4 

1616 IF v$="depourvoir" THEN d=13:60T0 3416 
1826 k(3i=7:E(71=3 

1634 IF v$="prevoir" THEN 7416 


1640 IF RIGHTS (VS, 4;="voir" THEN r$(4)=r3$#terr tiré (5)= RM 


r$(4):G0T0 3416 


1656 r=3:a=1:GOSUE 379@:k(1)=1B8:k(Zi=4srét4i=n4$+"udr"s à 


r$(Si=r$(dhir$(bi=r4$ik(b)=12:k(7i=d: «(Bi =18 


1668 IF vé£="prevaloir" THEN r$(1)=r4$ir$(gi=r4tir#ibizp à 


J$:E(b)=1:GOTO 7410 
1676 IF v$="revaloir" THEN d=11:6070 7414 


1686 IF RIGHTS (vé,6i="valoir" THEN r$(li=rdtiré(Bi=r4$: QAR 


GOTO 3416 


1694 IF v$="falloir" THEN r$(i)=r5$eré (4)=r5$+"udr"ir$( 


Si=r$(4lir$(6)=r5$: 1mp=iid=1:GOTD 3418 
1796 IF v$="chaloir" THEN CLS:GOTD 2884 
1716 IF vé="apparoir" THEN CLS:6070 3926 


1726 IF v$="vouloir" THEN r$(i)=rb$:kiti=19:r#(4i=r4$4" à 


dr'iré(Si=r$(diir$(bi=rbbik(b)=t3ir#(8i=ré#:E(B)=1S:GÛT 
D 3416 


1736 r=4:a={: GOSUE 3704:k(3i=t:r#(4i=r4$+"ier"ir#(Sizré ME 


(CHAN ES 


1746 IF RIGHT#iv$é,7i="asseoir" THEN CLS:LOCATE 1,16:FRT :MN: 


NT "Ce verbe peut se conjuguer de 2 +acons":LOCATE 5,12 
tFRINT'-en < eds * 1'ILOCATE 5,14: PRINT" -en à 015 

2" ELSE GOTO 1866 

1754 a$=INKEVS: IF a$="" THEN 1756 


1766 d=VAL(a$}:CLS:IF di2 OR d£i THEN PRINT CHR$I7): GOT : 


0 1756 
1774 IF d=£ THEN 1796 


y'ir$ib)=r$(21:k(6)=26:d=@: GOTO 3416 


1796 FOR 1i=1 TO B:r$(i)=r4$+"o":NEXTid=bsk(li=iSsr$igi= ; 


rAg+'oy"er$ (ini (Ti=Zin#(dizragt'oir"ir#isizr$i4)sE 
(bi=£ir$(7i=r$ (Gi: k(7I=T:E (Bi =1S: GOT) 3418 


2GRE 


1786 IF RIGHTS (vé,71="asseoir" THEN k(ti=2@iré(2)=ri+" 3 


1804 IF v$="seoir" DR v$="messeoir" THEN réili=ragt"iet vec 


LE =Gere(Ti=ragt es tir (bisra$+ "ie: 1mpz2: d=3: GOÛT 5 
4i6 

1816 IF v$="surseoir" THEN réiii=r4g#totiktii=igiré(2i= 
rA$+'oy "ir (4i=véine(S)=v#ir#(bisré(tisk(bissir#isisré( 
Li:k(Bi=15:6070 7416 


1829 r=2:a=1:GOSUE 3794:k(1)=iSsr#ih=rigiEiTiz4sk(ér=z à 


1r$(7i=ri$iE(7)=d:d=à 

1836 IF v$="dechoir" THEN d=12:5070 3416 
1846 IF v$="echoir" THEN 1mp=2: 6070 3414 
1854 IF vé="choir" THEN imp=3:60T0 3414 


#HL< 


DM< 


>EN< 
>EP< 
>E0< 


1866 d=D:r=2:a=1:G0SUB 3796:k(1)=21:r$(2)=ri$t"ss":k (3) 
=iir$(b}=r$(2):k(7)=3:k(8)=21 

1876 IF v$="bruir" THEN imp=2:d=2 

1886 IF RIGHT$(v$,2}="ir" THEN 3418 

1890? HHIHHAMNEENNHENHNTE 


19606 ‘+## CODAGE VERBES EN RE  ### 

LOL ANNEE 

1929 r=4:a=1:60SUB 3790:k(1)=24:r$ (2)=r4$+"lv":r$(3)=r4 
$+"l'ik CI) =ir$(4)=ri$ir$(5)=r$ (4) sr$(b)=r$(2)sr$(7)=r$ 
(3) :k(7)=4:k (8) =24: d=0 

1936 IF v$="resoudre" THEN 3410 

1949 IF RIGHT$(v$,6)="soudre" THEN d=6:60T0 3416 

1954 r$(1)=r3$:r$(B)=r3$ 

1969 IF RIGHTS (v$,6)="moudre" THEN k(1)=23:r$(2)=r3$+"] 
er$(i)=r$(2)i:r$(6)=r$#(2}ir$(7)=r$ (2):k(8)=23:GOTD 3410 


1979 k(3)=3:k(7)=3 

1984 IF v$="sourdre" THEN CLS:G0TO 3910 

1996 IF RIGHT$(v$,6)="coudre" THEN k(1)=22:r$(2)=r3$+"s 
“ar$(i=r$(2):r$(b)=r$(2)sr$(7)=r$(2):k(8)=22:60T0 3419 


2660 IF v$="poindre" THEN CLS:G0TO 3939 

2019 IF v$="oindre" THEN CLS:G0T0 3946 

2020 IF RIGHT$(v$,5)="indre" THEN r$(i}=r4$:k(1)=25:r$ 
(2)=r4$+"qn"ir$(3)=r$ (2) :r$(6)=r$(2):r$(7)=r$ (2): r$ (B)= 
r4$:k(8)=25:G0T0 3419 

2639 IF RIGHTS (v$,7)="prendre" THEN k(1)=26:r$(2)=r3$ir 
$C) =rS$ir$(b)=r3$:k(b)=bir$(7)=r9$:k (8)=26:GOTO 3410 
2649 r$(1)=r2$ir$ (2)=r2$:r$ (5) =r2$:r$ (6) =r2$:r$ (7) =r2$: 
r$(8)=r2$ 

2056 IF RIGHT$(v$,3)="dre" THEN k(1)=8:k(8)=8:G0T0 3419 


2060 k(3)=3:k(7)23 

2076 IF RIGHT$(v$,3)="pre" THEN r$(i)=r2$:k(1)=12:k (8)= 
8:G60T0 3419 

2089 k(1)=27:r$(1)=r3$:r$(8)=r3$: k (8) =27 

2090 IF RIGHT$(v$,5)="attre" THEN 3419 

2106 r$(3)=r5$:r$(7)=r5$ 

2110 IF RIGHT$(v$,5)="ettre" THEN r$(3)=r95$:r$(7)=r5$:6 
OTO 3419 

2129 IF RIGHT$(v$,7)="vaincre" THEN k(1)=28:r$(2}=r3$+" 
qu“ir$(3)=r$(2):r$(6)=r$(2):r$(7)=r$(2):k(B)=28:G60T0 34 
19 

2139 k()=15:r$(2)=r3$+" y" sr$(b)=r3$:k(6)=2:k(B)=15 
2149 IF v$="braire" THEN imp=2:d=8:60T0 3419 

2150 IF RIGHT$(v$,6)="traire" THEN d=6:6070 3419 

2169 k(1)=31:r$(2)=r3$+" ss" er$(b)=r$ (2): k(b)=1:k(B}=31 
2170 IF v$="naitre" OR v$="renaitre" THEN r$(3)=r4$+"qu 
“er$(7)=r$(3):G0T0 3419 : 

2180 IF v$="paitre" THEN d=6:60T0 3410 

2190 r$(3)=r5$ik(3)=4ir$(7)=r5$:k(7)=4 

2200 IF v$="repaitre" THEN 3419 

2219 IF RIGHT$(v#,5)="aitre" THEN 3416 

2226 IF RIGHT$(v$,5)="oitre" THEN 3419 

2236 r$(1)=r2$:k(1)=30:r$(2)=r2$+"s"sr$ (S)=r4$ir$ (b}=r$ 
(2}:r$(7)=r4$:r$ (8)=r2$:k(8)=30 , 

2240 IF RIGHT$(v$,5)="laire" OR v$="taire" THEN 3419 
2256 IF v$="forfaire" OR v$="parfaire" THEN CLS:G0TO 38 


2MR€ 


HT 
>QU< 
CV 
?KL< 
>VME 
ALES 


>UP< 
>6Q< 
?KR< 
?GT< 


>NU< 
?DVé 
?EH4 


TC 
>HD< 
>EE< 


>HF< 
>PG< 
>IH< 


?DJ< 
?TK£ 


2VL£ 
>LM< 
>CD< 
?BE< 


WF 


2MG< 
?EH< 
2NJ< 
>FK< 
?RL< 


>QM< 
?NN 
VE“ 
>TF 
>JG< 
>WH< 


?QJ< 
?GK< 


7 

2260 IF RIGHTS (v$,5)="faire" THEN r$(1}=r4$:k(1)=29:k(3 
P=3ir$(4)=r4$+'er"ir$ (Si=r$ (4)ir$(6)=r3$+"ss"ik(7)=3ir$ 
(8)=r4$:k(8)=29:60T0 3416 

2276 r$(3)=r3$:r$(7)=r3$ 

2280 IF RIGHT$(v$,4)="lire" THEN 3416 

2299 k(3)=3:k(7)=3 

2306 IF v$="dire" OR v$="redire" THEN k(1)=33:k(8)=33:6 

OTO 3419 

2319 IF RIGHTS (v$,4)="dire" THEN 3416 

2320 IF RIGHTS (v$,4)="uire" THEN r$(3)=r2$+"s"ir$(7)=r$ 
(3):60T0 3410 

23230 IF RIGHT#(v$,4)="fire" DR RIGHTS (v$,4)="cire" THEN 
3410 ‘ 

2349 IF v$="frire" THEN d=9:imp=5:G0T0 3416 

2350 IF RIGHTS (v$,5)="clore" THEN d=19:imp=6:G0TO 3416 
2366 r$(3)=r4$:k(3)=41r$(7)=r4$:k(7)=4 

2374 IF v$="boire" THEN r$(1)=r4$:k(1)=32:r$ (2) =r4$+"uv 
“sr$(é)=r4$:k(6)=14:r$(B)=r4$:k(8)=32:G0T0 3410 à 

2389 r$(1)=r3$:r$(8)=r3$ 

2396 IF RIGHT$(v$,6)="croire" THEN k(1)=15:r$(2)=r3$+"y 
“sr$(b)=r3$:k(b)=2:k(8)=15:60T0 3419 

2409 kK(1)=14r$(2)=r2$ir$(3)=r2$ir$(b)=r2$:k (bi =: r$ (7) 

=r2$:k(8)=14 

2419 IF RIGHT$(v$,5)="uivre" THEN k(3)=3:k(7)=3:G0T0 34 
19 

2426 IF RIGHT$(v$,5)="vivre" THEN r$(3)=r4$+"ec"ir$(7)= 
r$(3):G0T0 3419 

2436 r$(1)=r2$:k(1)=12:r$(3)=r3$ir$(7)=r3$:r$ (8)=r2$:k( 
8)=12 

2449 IF RIGHT$(v$,4)="lure" THEN 3419 

2458 k(3)=3:k(7)=3 

2466 IF v$="rire" OR v$="sourire" THEN 3410 

2470 IF RIGHTS (v$,5)="crire" THEN k(1)=i4:r$(2)=r2$+"v" 
tr$C=r$ (2):r$(b)=r$(2):r$(7)=r$(2):k(8)=14:G0T0 3410 

2486 IF v$="etre" THEN r$(1i=""ik(1)=38:r$(3)=" 4": k(3)= 
4:r$(4)="ser":r$(5)="ser":r$(b)="so":k(6)=20:r$(7)=" "te 
k(7)=4:r$(8)="so":k(8)=15:60T0 3419 

249% CLS:LOCATE 5,19:PRINT"Je ne connais pas ce verbe": 
LOCATE 14,24:PRINT ap$:CALL &BB18:CLS:60T0 570 

2500 ‘HIHI 
2519 ‘# DATAS PRONOMS CAS PARTICULIERS# 
2520 ‘HIHI 
253 DATA “je “,"tu ","il "nous ", "vous ",“ils 

254% DATA accroire,bayer,bienvenir,declore,ester,compar 

oir,courre,malfaire,mecroire,querir,ravoir 

2556 DATA averer,courbaturer,deconfire,ecloper,emoudre, 

ferir, forclore, isboire, inclure, issir,occire,perclure,ra 

ssir,reclure,tistre 

2569 DATA habiliter,habiller,habiter,habituer,habler,ha 
leter, harmoniser, harnacher,harponner,heberger ,hebraiser 
helleniser,herboriser,heriter,hesiter,hiberner,hiverne 
r,homologuer, honorer, horripiler,hospitaliser,houspiller 
huiler,humaniser,humecter 

2576 DATA humidifier,humilier,hypnotiser ,hypothequer 

2580 DATA celer,deceler,receler,ciseler,demanteler,ecar 
teler, geler, degeler,congeler,surgeler ,marteler, modeler, 

peler 


?DL£ 


+ 6M< 
?VN£ 
JP 
?KF< 


:EG< 
?LH< 


PNJÉ 
ASS 
#KL< 
2KM< 
#TNé 


>HP< 
>PQ< 


?LG< 


>HH 


?TJ< 


?CK< 


?FL< 
?6M£ 
#DN£ 
»TP< 


” 


?BQ€ 


?DR4 


>QH< 
>MJ£ 
?TK£ 
?CL< 
2XM€ 


2MN< 


DS 


EP« 


KG 
>DR< 
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2598 DATA acheter, bequeter,corseter,crocheter, fileter,f >KT£ 
ureter.haleter 
2600 HIHI 


2610 ‘#+#+ DATAS TERMINAISONS  ### 
DO 2O ‘HAINE 
2630 DATA e,es,e,ons,ez,ent 

2646 DATA e,es,e,eons,ez,ent 

2656 DATA ie,ies, ie, yons, yez,ient 

2666 DATA te,tes,te,ons,ez, tent 

2670 DATA le, les, le,ons,ez, lent 


2684 DATA iens,iens, ient,enons,enez, iennent 


2699 DATA iers,iers,iert,erons,erez,ierent 
2708 DATA 5,5,,0ons,ez,ent 

2719 DATA 5,5,t,tons,tez, tent 

2726 DATA 5,5,t,illons,illez,illent 

2736 DATA 5,5,t,mons,mez,ment 

2746 DATA 5,5,t,0ns,ez,ent 


2750 DATA eurs,eurs,eurt,ourons,ourez,eurent 


2766 DATA 5,5, t,vons, vez, vent 

2779 DATA is,is,it,yons,yez,ient 

2789 DATA ois,ois,oit,evons,evez,oivent 
2790 DATA eus,eus,eut,ouvons, ouvez,euvent 
2806 DATA ux,ux,ut, lons, lez, lent 

2810 DATA eux,eux,eut,oulons,oulez,eulent 
2826 DATA ieds, ieds, ied.evons,eyez,eyent 
2834 DATA is,is,it,issons,155ez,issent 
2846 DATA ds,ds,d,sons, sez, sent 

2850 DATA ds,ds,d, ions, lez, lent 

2869 DATA us,us,ut, lvons, ivez, vent 

2874 DATA ns,ns,nt, gnons, gnez, gnent 

2880 DATA ds,ds,d,ons,ez,nent 

2896 DATA 5,5,,tons,tez, tent 

2909 DATA cs,cs,c,quons,quez, quent 

2916 DATA ais,ais,ait,aisons,aites,ont 
2920 DATA 5,5,t,s0ns,sez. sent 

2939 DATA 5,5,t,ssons,s5e:,ssent 

2948 DATA ois,ois,oit,uvons,uvez,oivent 
2950 DATA 5,5,t,5on5, tes, sent 

2966 DATA eux,eux,eut,ouvons,ouvez,euvent 
2978 DATA vais, vas, va, allons, allez, vont 
2984 DATA ai,as,a,avons,avez,ont 

2996 DATA ux,ux,ut,illons,illez,illent 
3006 DATA suis,es,est, sommes, etes, sont 
3010 DATA is,is,it,vons, vez, vent 

3026 DATA x,,d,,,ent 

3030 DATA ais,ais,ait,ions, iez,aient 
3949 DATA eais,eais,eait,ions,iez,eaient 
3450 DATA ai,as,a,anes,ates,erent 

3966 DATA eai,eas,ea,eanes,eates,erent 
3070 DATA is,is,it,imes,ites,irent 

3080 DATA us,us,ut,umes,utes,urent 

3098 DATA ins, ins, int, inmes, intes, inrent 
3100 DATA ai,as,a,ons,ez,ont ” 
3119 DATA ais,ais,ait,ions,iez,aient 
3120 DATA e,es,e,ions,iez,ent 

3130 DATA ie, ies,ie,yions,yiez,ient 

3146 DATA te, tes, te, ions, iez, tent 

3150 DATA le, les, le, ions, iez, lent 
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3160 DATA aie,aies,ait,ayons,ayez,aient 
3179 DATA ne,nes,ne, ions, iez,nent 
3189 DATA ienne, iennes, ienne,enions,eniez, iennent 


3196 DATA iere,ieres,iere,erions,eriez, ierent 
3206 DATA oive,oive,oive,evions,eviez,oivent 
3219 DATA eure,eures,eure,ourions,ouriez,eurent 
3226 DATA euve,euves,euve,ouvions,ouviez,euvent 
3236 DATA ille,illes,ille,lions,liez,illent 


3248 DATA euille,euilles,euille,oulions.ouliez.euillent 


3250 DATA oive,oives,oive,uvions,uviez,oivent 

3260 DATA ie,ies,it,yons,yez,ient 

3270 DATA ille,illes,ille,illions,illiez,illent 
3286 DATA ie,ies,ie,yons,yez,ient 

3299 DATA is,is,it,yions,yiez,ient 

3306 DATA ille,illes,ille,l1lions,lliez,illent 

3319 DATA 15,15,it,yons,yez, lent 

3326 DATA asse,asses,at,assions,assiez,assent 

3336 DATA easse,easses,eat,eassions,eassiez,eassent 
3349 DATA isse,1sse5,it,issions,1s5iez,1ssent 

3350 DATA usse,usses,ut,ussions,ussiez,ussent 

3366 DATA insse,insses,int,inssions,inssiez, inssent 


3376 DATA "",va, ,allons, allez, “" 
BBD HERBE 


3390 ‘###+  CONJUGAISON-AFFICHAGE  *## 
3400 HHHEHENHEHHHNENNEEEHHHNEHEEE 


3416 IF 118 AND ch=1 THEN FOR i=i TO B:r$(1)=RIGHT#(r$ 


(i),6):NEXT:LOCATE 38,2: PRINT'4#4" 

3420 IF ch=2 THEN 3420 ELSE GOSUB 4910:G0SUB 4686 
3430 FOR t=1 TO 8:FOR p=i T0 6 

3440 IF d=2 AND t=3 THEN 3770 

3456 IF d=1 AND t=8 THEN 2770 

3460 IF d=3 AND (t=3 OR t=7 OR t=8) THEN 3760 

3470 IF d=4 AND(t=2 OR t=6 OR t=8) THEN 3760 

3480 IF d=6 AND(t=3 OR t=7) THEN 3760 

3490 IF d=7 AND (t=1 OR t=2 OR t=6 OR t=8) THEN 3760 


3508 IF d=8 AND(t=2 OR t=3 OR t=6 OR t=7 OR t=8) THEN 3 


TE 
3519 IF d=9 AND(t=2 OR t=3 OR t=6 OR t=7) THEN 3760 
3520 IF d=18 AND(t=2 OR t=3 OR t=7} THEN 3760 


3539 IF d=ii AND(t=i OR t=2 OR t=3 OR t=6 OR t=7 OR t=8 


} THEN 3760 

3549 IF d=12 AND t=2 THEN 3760 

3556 IF d=13 AND t{>3 THEN 3760 

3568 IF imp=3 AND t=i THEN IF (p=4 OR p=5) THEN 3759 
3570 IF imp=3 AND t=7 THEN IF p<>3 GOTO 3759 

3589 IF imp=5 AND t=1 THEN IF p>3 GOTO 23750 

3590 IF imp=5 AND t=8 THEN IF p>2 GOTD 3779 

3609 IF imp=6 AND t=8 THEN IF p>2 GOTO 3776 


3618 IF imp=2 THEN IF (p=1 OR p=2 OR p=4 OR p=5) THEN 


3750 

3626 IF imp=i THEN IF pé>3 GOTO 5750 
3630 IF Vé="aller" AND t=1 THEN p$(ii="je " 
3649 IF v$="aller" AND ti THEN p#$(i)=";"" 
3650 IF v$="etre" AND t<>2 THEN p#(i)="je “ 
3660 IF v$="etre" AND t=2 THEN p#(i)=";"" 


>AF< 


>HH< 
>QJ< 
»TK£ 


FLE 
FUM< 
>UN< 
EP 
>WQ< 
DG* 
#EH< 
PJ 
QE< 
sUL< 
2YM< 
PEN< 


?LP£ 

Y@ 
WR< 
QH° 
QJ< 


è 
+ 


> BK< 
?BL< 
3 VM< 
*AN€ 
2WP< 
>WQ< 
#HR< 
2MT< 
ALES 


?HK< 
?LL< 
JM 


FXN< 
SRPE 
PR 
> IR 
FT 
?QU< 
2HK£ 
?HL< 


>MM< 
>HNé 
>CPé 
>HQ 
>KRé 


3670 IF t>4 THEN LOCATE 2+26#(t-5) ,p+18:G60T0 3694 
3684 LOCATE 2+424#(t-1),p+7:G0T0 3726 

3690 IF t<8 THEN 3720 

3709 IF t=8 THEN FOR pp=i TO &:p#(pp)=" ":NEXT 
3719 IF p=2 OR p=4 OR p=5 THEN 3724 ELSE GOTO 3756 
3729 s=tiz=pim$(s,z)=p$(p}+R#(ti+tes(t,kCt) ,piiIF t=8 T 
HEN m$s,z)=r$(t)+tet(t,kCt) ,p) 

3736 IF ch=2 THEN 3756 

3749 PRINT P$ip}+R$(ti+tes(t,k(t),p} 

37950 NEXT 

3760 NEXT 

3779 d=O:RESTORE 2530:FOR p=1 TO 6:READ p#(p):NEXT 
3780 IF ch=2 THEN 4329 ELSE GOTO 3954 

3790 FOR t=1 TO Bsr$(t)=MID#(v$,1,1-r):NEXT + 

3806 R$(4)=v$ir$ (5) =v$ 

3814 FOR i=i TO B:k(i)=a:NEXT: RETURN 

ZB2E HHHHENHOPEHOPHPANEHHHEHEE 

3836 ‘#4 AFFICHAGE CAS PARTICULIERS  ## 

BOOM T ET ESS DE SS SELLE SELS SEE SL 


3856 LOCATE 1,16:PRINT "Ce verbe ne s'emploie qu'a l'In à) 


finitif":6070 3954 


“ad 4070 PLOT 0,0:DRAW 639, 0:DRAW 639,399: DRAM 9,399: DRAN 4 > YM< 


> ie 
PEL 
>UM< 
>CK 


3866 LOCATE 1,19:PRINT "Ce verbe ne s'emploie qu a L'In ?XL 


finitif et au Farticipe Fasse":G0T0 295û 


3874 LOCATE 1,19:PRINT "S'emploie seulement à l'Infinit : 


if,au Participe Fresent et au Participe Fasse“ 


:GOTO 3956 


3884 LOCATE 1,19:PRINT "ne s'emploie que dans L'express :KW£ 


ion: ":LOCATE 2,12:PRINT"£ peu me chaut >":60T0 3950 


3899 LOCATE 1,19:PRINT"S ‘emploie seulement a l'infiniti : 


f et aux 
temps composes.":G60T0 395û 


3709 LOCATE {,19:PRINT"S "emploie seulement aux particip : 


es et aux 


temps composes":G0OTO 3956 


3919 LOCATE 1,169: PRINT "Ne s'emploie que dans l'express : 


ion: ":LOCATE 2,12:PRINT "© l'eau sourd >":G60T0 3954 


3928 LOCATE 1,19:PRINT ‘Ne s'emploie que dans l'express ; 


ion: “:LOCATE 2,12:PRINT"<£ 11 appert >>":G0T0 395à 


3936 LOCATE 1,16:PRINT "Ne s'emploie que dans l express : 


ion: ":LOCATE 2,12: PRINT"<E 
a ??":60T0 3954 

3946 LOCATE 1,19:PRINT "Employe seulement dans les form 
es: ":LOCATE 2,12:PRINT"££ il oint-il oindra >>":G60T0 39 
st) 

3956 ch=i:PRINT CHR$(7) 


. le jour point-le jour poindr 


3960 LOCATE 48,2:PRINT “Un autre verbe X VX : Menu LM > è 


“x 

3970 a$=INKEY$:IF a$="" THEN 3976 

3986 IF a$="v" OR a$="V" THEN CLS:MODE Z2:6070 666 
3994 IF a$="M" OR a$="m" THEN CLS:60T0 574 

4904 PRINT CHR$(7):G60T0 397à 

4619 IF v$="maudir" THEN v$="maudire" 

4920 IF v$="bruir" THEN v$="bruire" 

AO TD HET 

4040 ‘#44 MISE EN PAGE ### 

[CSURRETE FESSES SES SES ST SES 


4066 v$=UPPERS(v$}:LOCATE 5,2:PRINT "verbe conjugue: Le. 


VS: vé=LONERS (v$) 


us 
En 


2 IT 


,9:PLOT 2,2:DRAM 637,2: DRAW 637,397: DRAW 2,397: DRAH 2,2 
: RETURN 

4680 PLOT 4,357: DRAW 639,357: FLOT 0,326: DRAN 639,326:PL 
OT 0,296: DRAW 639,296:FLOT 4,184: DRAW 639,184: PLOT 6,12 
2:DRAW 639,122:PLOT 0,153:DRAH 639,153 

4690 PLOT 158,9:DRAH 158,184:PLOT 318,9: DRAN 318,193:PL 
OT 478,6:DRAW 478,184:PLOT 158,184: DRAW 158,326: PLOT 31 
8,184: DRAW 318,326:PLOT 478,184: DRAW 478,326:PLOT 0,182 
:DRAW 639,1B82:PLOT 6,359:DRAH @,37i 

4106 PLOT 4,359: DRAM 638,359: PLOT 156,6: DRAH 156,184:PL 
OT 484,0:DRAW 486,184 

4116 LOCATE 36,4:FRINT INDICATIF" 

4126 LOCATE 7,6:PRINT'Fresent":LOCATE 26,6: PRINT" Impart 
ait":LOCATE 45,6:PRINT'Passe Simple":LOCATE 68,6: PRINT" 
Futur" 

4134 LOCATE 5,15:FRINT "CONDITIONNEL":LOCATE 36,15: FRIN 
T'SUBJONCTIF":LOCATE 65,15: PRINT"IMPERATIF" 

4146 LOCATE 7,17:PRINT"'Fresent":LODCATE 27,17:PRINT'Fres 
ent":LOCATE 46,17:PRINT"Imparfait":LOCATE 67,17:PRINT"F 
resent" 

4159 RETURN 


4166 FLOT 4,366: DRAN 639,360:PLOT 0,324: DRAW 639,324:PL : 


OT 6,186: DRAM 639, 180:RETURN 
4179 ‘ 

4184 INF 1,0: INE 2 
4198 GOSUB 4070 
4200 HAE 

4210 ‘#44 INTERROGAT ION ##} 

4220 HIHI 

4230 PEN 1:LOCATE 19,4: INPUT" Verbe: "5 v$: v$=LONERS (v$) : 
ERASE n$ 

4249 DIM m$(8,6) 

4250 LOCATE 19,6:FRINT"A quel temps ?" 

4269 FOR i=i TO B:LOCATE 5,8+1:PRINT'-"sig"-t" 
}:NEXT 

4276 LOCATE 11,26:PRINT' Votre choix (1-8) 7" 
4280 w$=INKEYS:IF w$="" THEN 4286 

4290 w=VAL(WS):1F wii OR w>8 THEN PRINT CHR#(7):G0TD 42 
8û 

4506 s=w:n=û 


LE INE 3,25: te=û: tr=ÿ 


"atéli 


4319 LOCATE 15,22:FRINT ‘"X patientez un instant X':6070 : 


676 

4324 CLS:GOSUB 467à:GOSUE 4166 

4338 LOCATE 19,2:PRINT "Verbe: “;UPPERS (v#) 
4340 LOCATE 19,4: PRINT t$(w) 


4354 LOCATE 5,6:PRINT"Reponses":LOCATE 5,15: PRINT"Corre : 


ction“ 

43bû FEN 1:FOR 2=1 TO 6 

4376 te=te+l:LOCATE 2,7+2:PRINT z 
R$(rep#) 

4389 LOCATE 2,16+2: PRINT 25 "-" 


:: INPUT rep$:rep#$=LÜHE 


4399 PEN 3:1F rep$=n$(n,z) THEN LOCATE 7,i6+z:SOUND Ï,6 : 


3,20,15:PRINT “exact":n=n+i:G0TO 4428 


4400 PEN 2:PRINT CHR$(22)+CHR$ (1) :LOCATE 7,7+z: PRINT ST : 


RINGS (LEN(rep$) ,"-"):PRINT CHRS(22)4CHR$ (0) : SOUND 1,430 
,28,15,,,20:LOCATE 7,16+2:FRINT n$(, 2) 


>PN 


>CP 


TF< 


PNG< 
FXHE 


JS 


AK< 


3PN£ 
PYP< 
2MQ< 
?PG° 
#RHE 
#RJ* 
?QK£ 


?KL£ 
3 JM< 
#BN< 


>XP< 
:BQ< 
#1R€ 


QP< 
:EQ< 


4416 IF m$iw,z)="" THEN LOCATE 7,16+z:SOUND 1,426,28,15 UK 
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PEN Z:PRINT "n'existe pas" 


4426 PEN 1:NEXT #EL£ 
4434 IF n=b THEN SOUND 1,64,26,15: SOUND 1,47,24,15:G0UN CM 
D 1,49,30,15 

4446 tr=tr+n :FN< 
445% LOCATE 2,24:FRINT "Un autre ? ON" UF 
4466 a$=INKEYS#: IF a$="" THEN 4468 :DQ£ 
4470 IF at="o" OR a$="0" THEN CiS:G0TO 4190 ER 
4486 IF a$="n" DR a$="N" THEN CLS:60SUB 467G:LOCATE 3,4 :GT< 
: PRINT" XRESULTATSZ ":LOCATE 5,14:FRINT “Vous avez eu"; 

tri "reponses exactes": LOCATE S,12:PRINT'eur"; tes; :LOCATE 
5,16:PRINT “Votre note est:":ROUND(tr/te#26,1);"eur 28 

4496 IF a$="n" OR a$="N" THEN LOCATE 11,23:PRINT ap#:CA JU 
LL &BB18:G0T0 576 

4506 PRINT CHR$(7):G0T0 4446 3EE< 
ASE AAEPHEPBNEENRERRE #UL£ 
4526 ‘#44 PRESENTATION #4 RME 
ASE APP EBEEPERHE FWN£ 
454 1$="conjugu":p#(3i="elle “:p$(éi="elles * eGFÉ 
4550 FOR 1=1 TO 6:1#(1)=p#(il+i$eNEXT #AQ< 
4566 MODE i:CLS: BORDER Q:INE 6,0: INE 1,242:INE Z,Zb:INE ‘GR 
3,6 

4574 ENV 1,15,15,4 SCT 
4589 FOR q=i TO & # HUE 
4590 v=1Æ(q-1}/1ûrrez7, Bus nb=ud+iébes: ORIGIN 0-16, à EVE 
:G0SUB 4786 

460 GOSUR 4894 AUL< 
464 FEN 3 FYME 
4824 IF q=1 THEN LOCATE 234, 1:PRINT "e":SOLND i,84,46,15 2N< 
Î 

4 

ZiLOCATE 33+3,2:PR HP 


4636 IF q=2 THEN tet="es":FÜR j=1 TD 
INT MID$(tet, j,1}:SOUND 1,63,49, 15,1: 
TINEXT 


FOR g=û TD 40d:NEX 


464 IF g=3 THEN LOCATE 26,3:FRINT “e“:SOUND 1,47,40,15 :G60: 


": 

4656 IF q=4 THEN tef="ons":FOR j=1 TO Z:LOCATE 35+j,4 
RINT MIDS (tes, j, 1): SOUND 1,63,49,15,1:FOR g=0 TD 460: “ 
XT:NEXT 

4bb@ IF q=5 THEN tef="ez":FOR j=1 TO 2:LOCATE 35+j,5:PR 
INT MID$(tes, j,1):SOUND 1,106,46,15,1:FOR g=0 TD 400:N 
EXT:NEXT 


4670 IF g=6 THEN tet="ent":FOR j=1 TD Z:LOCATE S6+j,6:F 


RINT MID$ (tes, j, 1): SOUND 1,63,64,15,1:FOR g=i TO SOU:NE 
XT:NEXT 
4686 NEXT 


4698 FOR h=i TO 190:FO0R u=i TO 3:INK u, INT (RND#26)+1:NE 


XT:SOUND 1,1640-(h#8),3,15,1:FOR g=i TO SÉ:NEXT:NEXT:p# 
3="i1 “ip$(bi="ils “:RETURN 


. 4700 p$="0603066167000801080706070517051509150713060709 : 


1309151115111312031201110014011487120314831515151511151 
5151916142614281637172017291426142000280626142666268116 
65150116062607290330047206200626":GOSUE 4826 

4716 p$="05240028007102270513810341530173720712028152415 
34":G0SUB 4820 

4726 p$="0528071910341339153813391240124315441245114249 
42084308400739":GOSUB 4826 

4726 p$="084207440442074104190739034101400141934102430 
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F 3TR< 


>6T4 


FYN< 


FRP< 


*EQ< 


43034105410646064908501250144914481543174117431843i7411 
9411949174117291639174115421744134712400040674747446645 
904067390538" :GOSUE 4824 


4746 MOVE B+e, dbte:DRAW 9te,dbte: MOVE 1ixe,déte:DRAW 12 : 


*e,4bte: MOVE 94e, 44te:DRAN 11+e,4â*e 

4756 MOVE 74e,24e:FILL 3:MOVE 134e,2%e:FILL 3 
47bà MOVE 1ô%e,20%e:FILL 2 

4776 MOVE 164e,33#e:FILL 2 

4788 MOVE 104e,494%e:FILL 1 

4794 MOVE 164e,274e:FILL 3 

4906 MOVE te, ZBte:FILL T:MOVE 14te,3Be:FILL 3 
481ù RETURN 

482% x=VAL(MIDS(p#,1, 
+, i 

4834 I=LEN(p#i 

484 FOR 1=5 TO 1-4 STEP 4 

4858 x=VALMIDS (p#,1,2)):y=VAL(MID#(p$,142,2)) 
+425,3,15,1:FO0R g=6 TO 1G:NEXT:DRAN 4e, y#e 
486 NEXT 1 

4874 RETURN 

4886 SOUND 1,809,5,15, 1: RETURN 


:SOUNE 1, 


4890 PEN 2:FOR i=i TO LEN(I$(q)):LOCATE 23+i,q: PRINT MI 


D$(1$(q),1,1):FOR h=1 TO ZO6:NEXT:G0SUE 4886: NEXT:RETUR 
N 

ADDED | HERO 

4910 ‘#44 BARATIN #44 

4070 HENAPPBEEEROFE 


4936 CLS:FEN 2:PRINT:PRINT “ Ce programme conjugue tous * 


te 
du 


les verbes usuels de la langue francaise aux 
mps simples de 1‘ Indicatif, du Conditionnel, 
Subjonctif et de 1 Imperatif." 


4949 PRINT:PRINT" La fonction X£Consulter:X vous donne : 


ra le tableau de conjugaison du verbe choisi." 

4950 PRINT:FRINT" Si le verbe choisi 
debut du verbe sera supprime dans ie tableau et le 

signe ### apparaitra." 

4966 PRINT:PRINT" La fonction 

de choisir un verbe, le mode et le temps; 

ner les reponses." 


X<Exercices:i permet 
puis de don 


2h) y=VAL (MID (p#,3,2)}:FLOT ve, y à 


est trop long, le : 


4976 FRINT:PRINT" Repoñdre en donnant le pronom sujet :NE 


puis un espace et la forme verbaie." 
4a9pà LOCATE f 13, 24: PRINT ap$:CALL SÉRIE 
4998 INE 1,6: INK 2,b:INK 3,24 
Soûg CLS: MINDOW#1 ,19,29,1,3:PAPER#1,5 


2:PEN L:PRINT#i, REMARQUES" 


5619 LOCATE 3,5:PRINT"{- La machine ne met ni les accen * 


ts ni les cedilles, 


524 LOCATE 3,8:PRINT"2- Four repondre utiliser les pro : 


noms £je-tu-il-nous-vous-ils}" 


5036 WINDOW#2,8,32, 12, 14: PAPER#2,3:CLG#2:LOCATE#2,2,2P à 


RINT#2, "OUVRAGES DE REFERENCE" 


5649 LOCATE 3,16:FRINT"{- Le Nouveau Bescherelle 
L'art de Conjuguer HATI 
ER" 
5056 LOCATE 3,26:PRINT"2- Cours Superieur d Orthographe 
Bled HACH 
ETTE* 


5069 LOCATE 15,25:PRINT ap$:CALL BBBIB:RETURN 


:CLS#1:LOCATERI,2, : 


3PL£ 


:RM@ 


CO 
orrespondance 
F 


/ 


CONFIANCE 


QUALITÉ 


SERVICE 


Le développement de la vente par 
correspondance est un fait que nul ne 
conteste désormais. || repose sur 2 points 
essentiels : la conflance client- 
fournisseur et la qualité des produits 
proposés. 

L'explosion de ce type de commerce est 
souvent dû aux difficultés de 
déplacement des clients. De son côté, le 
fournisseur peut réduire ses marges, donc 
ses prix. 

Pour réussir, il faut l'appui d'un groupe 
servant de support et de garantie. C'est 
ce que nous avons fait. 


C4 
ARTE 


re 
ANS 


\ NN 
u 
SL 


S'évader dans un fauteuil 


O 
O0 
æ 
(me) 
(=) 
(=) 
(e) 
O 
E 


(= 


0 0 0 0 0 O0 O0 


(] 


0 0 O0 O0 


Le clan de la caverne des ours 
{Archer) 

La Virginienne 
(Chase-Riboud) 

L'or de la terre 

(Clavel B.).............. 
La lettre à Alexandrine 
(Decours D.) ............ 
La bicyclette bleue 

(Deforge R) ............ 
101 avenue Henri Martin 
(Deforge R ............ 
Le Diable en rit encore : 
(Deforge R.) ............ 
La Bougainvillée - Le jardin 
du Roi (T1) (Deschamps F.) 
La Bougainvillée - 4 épices (T2) 
(Deschamps F.).......... 
La marquise des ombres 
(Hermany-Veille) 

Fontbrune (Le Varlet B.) ... 
La splendeur des orages 
(Plain B) 

Tous les fleuves vont à la mer 
Tendre et violente Elisabeth 
(Troyat H.)............. 
Les mangeurs d'âmes 
(Wouk H.).............. 
La télé rend fou. 

mais je me soigne (Masure B.) 
Elle qui ne sait pas dire je 
(Pelot P.) .............. 
Gauguin, le bon Dieu 

n'a pas d'oreilles (Berrier P.) 
Pour une parcelle de gloire 
(Bigeard M. ............ 
Nous avons rencontré 

les prophètes d'aujourd'hui 
(Cartier J.P.)............ 
Le banquier du Vatican 
(Corwell R.) ............ 
Joseph Kessel ou Sur la piste 
du lion (Courrière Y.)...... 
Des Toques et des Etoiles 
(Courrière Y.) ........... 
La vérité blessée 

(Couturier Y.) ........... 


105,00 
80,00 
98,00 
65,00 
90,00 

100,00 

110,00 


100,00 

75,00 
160,00 
140,00 
100,00 


Des pierres précieuses 

aux pierres fines (album) 
(Dacunna) 

Les Rois Maudits (T 1) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 2) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 3) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 4) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 5) 
(Druon M.) Reliure Skivertex 
Les Rois Maudits (T 6) 
(Druon M.) Reliure Skivertex 
Si j'étais Dieu (Guth P.) ... 
Moœurs et sexualité en Océanie 
(Mead M.) ............. 
Tapie, les secrets 

de sa réussite (Musnik). . 
Terre vivante : voyage 

d'un agronome autour 

du monde (Dumont R.) .... 
Le cheval d'orgueil Mémoires: 
d'un breton du Pays Bigouden 
(Hélias P.J.) ............ 
Le quartier de la mort 
(Jackson B. Christian D)... 
La merveilleuse histoire 

du cirque (Thétard H.)..... 
La difficulté de vivre 
(Françoise Dolto) 

La solitude 

(Françoise Dolto) 

Mes animaux vedettes 
(Marlyse de la Grange) 
Les salons de Marie 

(Marie Jaoul de Porcheville) 


100,00 
130,00 
150,00 

95,00 
110,00 
130,00 

85,00 


Portrait total de Mitterrand 
(P. Jouve A. Magoudi) .... 
L'immortelle 

(Amanda Lear) 

Argotez, Argotez 

(Auguste Lebreton) 
Confidence de Femme 
(Sophia Loren) 


Maintenant !.… 
Je peux les recevoir 


La cuisine est un jeu 
d'enfant (Oliver M.)....... 
La pâtisserie est un jeu 
d'enfant (Oliver M.)....... 
Les hors d'œuvre sont 

un jeu d'enfant (Olivier M.). 
Mes nouvelles recettes 


Les grands vins de France 
(Dovaz M) ............. 
La cuisine au naturel 

(Dard P.)............... 


CO La cuisine traditionnelle 

(Duclous J.) ............ 110,00 
CO Tous les vins de Bordeaux 

(Duiker)................ 120,00 
C Le grand livre des vins 

de France (Mastrojannim) .. 140,00 
© Ma médecine naturelle 

(Rika Zara) ............ 76,00 
Q Dictionnaire des médicaments 

vendus sans ordonnance 

(Giroud J.C et Dr. Hagège) . 120,00 
O Se soigner seul sans danger 

Dictionnaire conseil des 

médicaments vendus sans 

ordonnance ............. 130,00 
CO La grande manipulation 

{Vallée J.).............. 75,00 
O La spasmophilie enfin vaincue 

(Verret P.).............. 70,00 
CO La science de l'homéopathie 

(Vithoulkas G.) .......... 120,00 
CO Perfectionnez-vous aux échecs 

La maîtrise du premier degré 

{Youdowitch MM.)........ 95,00 
CO Guide des mots croisés 

et du scrabble (Zakhiaf) ... 160,00 

Ciné télé guide .......... 85,00 
CO J'irai cracher sur vos tombes 

{Boris Vian)............. 70,00 
CO Jean de Florette, suivi de 

Manon des Sources 

(M. Pagnol). ............ 100,00 
Q En désespoir de cause 

(Robert Hossein) ......... 85,00 
CO Femme Public (Alice Sapritch) 75,00 
CO Le mythe de la vie 

(Ingrid Bergman) ......... 95,00 
CO La route des Indes 

(E.M. Forster) ........... 80,00 
CO Jean de Florette, suivi de 

Manon des Sources (Relié) 

(Marcel Pagnol). ......... 150,00 
O Les films de Marcel Pagnol 

(Castans R. et Bernard À) . 120,00 


Astrologie, Esotérisme 


Q La Bourse et l'Astrologie 

Manuel d'astrologie boursière 95,00 
CO Les cycles astrologiques 

de la vie (Arroyo S.)...... 120,00 
©  L'Astrologie, la psychologie 

et les quatre éléments 

(Arroyo S.) ............. 80,00 
O Astrologie pratique simplifiée 

(Cluny J.) .............. 60,00 
CO Le véritable sens des maisons 

astrologiques (Dorsan J.)... 85,00 
CO Combinaisons des influences 

astrales (E. Bertin) ....... 87,00 
O La vérité sur l'Astrologie 

(Gauquelin. M.) .......... 120,00 


Comment comprendre votre 
horoscope (T 1) (Holley G).. 
Comment comprendre votre 
horoscope (T 2) (Holley G).. 
L'Astrologie à la recherche 

des clés de la destinée... 


L'Astrologie de 

la Transformation (Rudhyard) 
Le cycle de la lunaison 
(Rudhyard) ............. 
La dimension galactique 

de l'Astrologie (Rudhyard) . 
Les maisons astrologiques 
(Rudhyard) ............. 
Retour de l’Absolu (Rudhyard) 
Le rythme du zodiaque 
(Rudhyard) ............. 
La triptique astrologique 
(Rudhyard) ............. 
Les aspects astrologiques 
(Rudhyard) ............. 


Dynamique des aspects 
astrologiques (Tierney B.) .. 
Comment devenir voyant 
(M. Bigiani et F. Dollet) ... 
La Dianétique (Ron Hubbard) 
L'Atlantide retrouvée : 

Le huitième continent 
(Berlitz C.H.)............ 
Guide de la Comète de Halley 
et le phénomène mystérieux 
des comètes (Asimov |.) ... 
La biologie de l'esprit 
(Chauvin R) ............ 
Histoire du spiritisme 
(Conan Doyle A) ........ 
Loge souveraine ou 

loge esclave (vérité, mensonges 
de la Franc-Maçonnerie) 
(Dangle P.) ............. 
La voix de la vallée, 
l'enseignement d'un maître Zen 
(Des Himaru)............ 
Les livres secrets 

des Gnostiques d'Egypte 
(Doresse J.) ............ 
Les couleurs visibles 

et non visibles (Duplessis Y.) 
Pratique de l'expérience 
spirituelle (Durckheim K.G.) . 
L'univers inconnu du Tarot 
(Grand Messe ss 
Psychologie transpersonnelle 
(GTON soso 
L'Alchimie de la vie, biologie 
et tradition (Guillé E. et 
Hardy Ch) ............. 
Le monde à l'envers : comment 
retrouver les lois de la vie 
(Meglin A.) ............. 
La perversion mathématique 
L'œil du pouvoir (Upinsky) . 
Mystique sacrée, mystique 
profane (Zaghner R.C.) .... 
Les secrets du Tarot 
divinatoire, 1 jeu + 1 livre. 


120,00 
76,00 
85,00 
75,00 


78,00 
78,00 
100,00 


75,00 


75,00 
100,00 
90,00 
150,00 
115,00 


79,00 
100,00 
100,00 
120,00 


AMSTRAD PC 1512 


© BIEN DEBUTER SUR PC 1512 

Ce livre s'adresse à ceux qui veulent rapidement 
profiter de leur PC 1512. Apprenez comment 
travailler sous GEM. Utilisez GEMPAINT - Fonc- 
tions principales du DOS - Réalisez vos premiers 
programmes en BASIC 2. Réf : R.274 

Prix : 149 F 


O LE LIVRE DE PC 1512 

Ce livre est conçu comme un guide. Vous trou- 
vez des réponses. Comment est-il vraiment com- 
patible ? Qu'est-ce que DOS/PLUS. GEM et MS- 
DOS ? - Quels sont les logiciels disponibles ? - 
Quelles sont les extensions possibles ? 

Réf : R.271 - Prix : 99 F 


Q GUIDE DE REFERENCE TECHNIQUE 
DU PC 1512 
Ce guide a été spécialement écrit par l'équipe 
de développement d'AMSTRAD International. || 
vous dévoile toutes les caractéristiques de votre 
PC 1512 : organisation de la mémoire. DMA : 
interruptions systèmes, contrôleur VDU couleur 
alpha/graphique, FDC, port sériel R 232 C, port 
parallèle d'imprimante. Interface et connexions, 
interruptions ROS, RAM non valide. Réf : R.259 
Prix : 249 F 


O TRUCS ET ASTUCES DU PC 1512 

Comment tirer parti du DOS, de GEM, du BASIC 
2 et des autres langages fonctionnant sur PC 
1512. Parmi les programmes - Générateur de 
programmes, redéfinition du clavier, graphismes 
en 3 D, animations graphiques RAMDISK. 

Réf: R.275 Prix: 179F 


[ LE LIVRE DU BASIC 2 

Très complet, cet ouvrage permet aux program- 
meurs de tous niveaux de trouver l'information 
recherchée facilitant l'apprentissage et la pro- 
grammation en BASIC 2. Réf : R.214 - 
Prix : 179 F 


[CLEFS POUR PC ET COMPATIBLES 
Indispensable au programmeur pour accéder rapi- 
dement à toutes les informations. Réf : P.342 
Prix : 195 F 


O GLEM SUR AMSTRAD PC 

Constitue une découverte complète et progres- 
sive de GEM: GEM Paint, GEM Write, GEM 
Graph, GEM Wordchart. Réf : P.380 

Prix : 185 F 


Ü CLEFS POUR GEM SUR AMSTRAD PC 
Ce livre s'adresse aux utilisateurs avertis d'AMS- 
TRAD PC désireux de programmer leurs propres 
applications graphiques sous GEM. Réf : P.389 
Prix : 195 F 


DIVERS COMPATIBLES 


© DICTIONNAIRE AU BASIC IBM 

D.A. LIEN 
C'est la référence de base du langage BASIC 
Microsoft (PC et COMPATIBLES). Réf : P.260 
Prix : 195 F 


© 8088 ASSEMBLEUR IBM PC 
H. LILIEN 


Regroupe trois livres en un seul : un cours d'ini- 
tiation, un manuel de l'utilisateur, un guide pra- 


tique. Réf : R.121 - Prix : 250 F 


© 8088 ET SES PERIPHERIQUES 

H. LILIEN 
Ce livre est consacré aux microprocesseurs 8088 
et 8086 et à leurs principaux circuits périphéri- 
ques d'accompagnement, tels qu'ils sont 
employés dans les micro-ordinateurs PC d'IBM 
et Compatibles. Réf : R.68 - Prix : 150 F 


O ECRIRE EN DBASE Il ET Ill 

C. MICHEL 
Apprendre à développer en dBASE des applica- 
tions structurées avec des menus, des saisies 
de données, des traitements, des rapports. 
Réf : P.06 - Prix : 185 F 


© MS-DOS PAS A PAS (version 2 et 4) 
A. PINAU 

Apprendre les commandes du système d'exploi- 

tation MS-DOS en les pratiquant, tel est le but 

de cet ouvrage. Réf : P.382 - Prix : 135 F 


D PC, MODEMS ET SERVEURS 

A. MARIATTE 
Apprend aux utilisateurs avertis d'IBM-PC/X/AT 
à se servir d'un MODEM, à utiliser ou créer un 
logiciel de communication, à tout savoir sur les 
réseaux télématiques. Réf : P.339 - 
Prix : 210 F 


© INTRODUCTION A DBASE Ill 

A. SIMPSON 
Permet au lecteur même débutant d'apprendre 
la programmation sans difficulté, en réalisant les 
exemples proposés. Réf : S.0131 - 
Prix : 210F 


© PRATIQUE DES IBM (Il) 
ENCYCLOPEDIE BASIC 
H. LILIEN 
Encyclopédie BASIC à double accès traitant la 
programmation avancée, les fichiers, le graphi- 
que et la couleur, ainsi que la musique et les sons. 
Indispensable pour éviter les recherches fastidieu- 
ses et les pertes de temps. Réf: R.165 
Prix : 220 F 


O DU BASIC AU TURBO PASCAL 
Comment développer sous Turbo des routines cor- 
respondant à des programmes BASIC. 

Réf: R.211 - Prix : 199 F 


O LE LIVRE DE FRAMEWORK 

R. COHEN 
Le tableau, le gestionnaire de loisirs, le généra- 
teur de graphiques, l’accès DOS, le logiciel de 
communication et FRED : le langage évolué. Indi- 
que aussi la manière de relier le PC au monde 
extérieur. Réf: P.258 - Prix : 150 F 


© MS—-D0S APPROFONDI 

J. KAMN 
Pour les utilisateurs expérimentés de MS-DOS 
(version 2.1 à 3.1), cet ouvrage a pour but de 
vous familiariser avec les techniques les plus évo- 
luées permettant d'accroître votre productivité. 
Réf : S.227 - Prix : 278 F 


© Nouveau! PRATIQUE DES IMPRIMANTES 
M. ARCHAMBAULT 

Apprendra aux amateurs comme aux profession- 

nels à résoudre les mille et un problèmes qu'ils 

ne manqueront pas de rencontrer lors de la mise 

en service de leur imprimante. - Prix : 95 F 


© LES SECRETS DU MINITEL 

C. TAVERNIER 
Principaux chapitres : les différents services pro- 
posés sur Télétel : informatique domestique et 
Minitel, téléphonie et transmission d'information, 
différents principes de transformation de données, 
comment devenir serveur. Réf : R 491 
Prix : 115F 


© SYSTEME D'EXPLOITATION 

ET LOGICIEL DE BASE 

P. JOUVELOT, LE CONTE DES FLORIS 
Moniteurs et systèmes d'exploitation monotâche 
CPIM, MS-D0S, système d'exploitation multitä- 
che, les couches d'un système d'exploitation ; 
Unix, présentation et analyse ; les utilitaires : ges- 
tion de fichiers, assembleurs, éditeurs de liens. 
Réf : R.482 - Prix : 95 F 


© CONSTRUISEZ VOS ALIMENTATIONS 
J.-C. ROUSSEZ 

Schémas échelle 1: transformateur, redresse- 

ment, filtrage, dissipation de la chaleur, alimen- 

tations non régulées, multiplicateurs de tension, 

alimentations régulées, alimentations à décou- 

page. Réf : R.463 - Prix : 70 F 


© 100 LOGICIELS PUBLICS SUR PC 
J.-F. SEHAN 

Ce livre s'adresse à deux catégories d'utilisa- 

teurs : ceux qui disposent déjà de logiciels du 

domaine public non documentés et ceux qui sou- 

haitent les découvrir. 100 logiciels aussi bien uti- 

litaires que jeux. Réf : P.387 - Prix :145 F 


© CLEF POUR MS-DOS (versions 2 à 4) 
Y. DARGERY 
Accessible à tous les utilisateurs d'IBM, PC ou 
Compatibles. Permet d'avoir sous la main tou- 
tes les informations concernant les commandes 
des différentes versions de MS-DOS (version 4 
incluse) et divers outils de programmation avan- 
cée. || donne également de nombreuses astuces 
d'utilisation. Réf : P.384 - Prix : 185 F 


O INITIATION BASIC (niveau 1) 

H. LILIEN 
Le BASIC ? … Mais c'est très simple ! Ce livre 
vous en convaincra comme il a déjà convaincu 
les dizaines de milliers de lecteurs qui en ont fait 
le “’bestseller” de la micro-informatique. 
Réf : R.52 - Prix : 125 F 


O INITIATION BASIC (niveau 2) 
Programmation structurée 
F. CROCHET, D. VILAIN 
Cette représentation originale, véritable synopti- 
que de l'application, accessible à tous, même aux 
débutants, vous permet de réaliser des program- 
mes particulièrement structurés. Une grande par- 
tie est consacrée à la gestion des fichiers BASIC 
à accès séquentiel direct ou séquentiel indexé. 
Réf : R.158 - Prix : 160 F 


INITIATION AUX FICHIERS BASIC 

J. BENARD 

Avec ce livre, vous découvrirez progressivement 
le “mécanisme” de la constitution d'un fichier 
en BASIC Microsoft, puis de son exploitation. 
Réf : 189 - Prix : 115 F 


INTRODUCTION AU TURBO PASCAL 
D. STIVISON 

Cet ouvrage permettra à l'utilisateur d'exploiter 
la puissance exceptionnelle de ce langage. 
Réf : S.0180 - Prix : 198 F 


O LE BASIC ET SES FICHIERS 
J. BOISGONTIER 

Tome 1 - Ce premier tome s'adresse à tous les 
programmeurs initiés au BASIC qui souhaitent 
réaliser des applications utilisant des fichiers sur 
disquette ou sur disque. Ils découvriront la ver- 
sion 5.1 du BASIC Microsoft et apprendront à 
l'employer au mieux sous PC DOS ou MS-D0S. 
Réf : P.246 - Prix : 110 F 


[LE BASIC ET SES FICHIERS 
J. BOISGONTIER 

Tome 2 - Ce second tome est destiné aux pro- 
grammeurs disposant d'un BASIC Microsoft fonc- 
tionnant sous PC-DOS ou MS-DOS. Le corps de 
l'ouvrage est consacré à des programmes utili- 
taires : générateurs de saisie d'écran, tri rapide 
ou à des programmes de gestion (facturation) 
Réf : P.250 - Prix : 105 F 


CPC 464 - 664 - 6128 - PCW 


© LE LANGAGE MACHINE 

DE L'AMSTRAD CPC 
Plus loin que le BASIC. Des bases de la program- 
mation en assembleur à l'utilisation des routines 
système, nombreux exemples. Contient un pro- 
gramme assembleur, moniteur et désassembleur. 
Réf : R.228 - Prix : 129 F 


[ LE LIVRE DU LECTEUR DE DISQUETTE 
AMSTRAD CPC 
La programmation et la gestion des données avec 
le 6128, le DD-1 ou le 664 ! Utile au débutant 
comme au programmeur en langage machine. 
Contient un listing du DOS commenté, un utili- 
taire qui ajoute les fichiers RELATIFS à l'AM- 
DOS avec de nouvelles commandes BASIC, un 
MONITEUR disque et beaucoup d'autres program- 
mes et astuces. Réf : R.232 - Prix : 149 F 


© LA BIBLE DU CPC 664/6128 

Tout connaître sur les CPC 6128 et 664. Analyse 
du système d'exploitation, du processeur, le GATE! 
ARRAY, le contrôleur vidéo, le 8255, le chip 
sonore, les interfaces. Réf : R.250 

Prix : 199 F 


MIEUX PROGRAMMER EN ASSEMBLEUR 
T. LACHAND-ROBERT 

Méthodes de programmation en assembleur Z80, 
accompagnées de nombreux exemples de pro- 
grammes d'application fonctionnant sur les Ams- 
trad CPC 464, 664 et 6128. Réf: S.0193 
Prix : 148 F 


MONTAGES, EXTENSIONS 

ET PERIPHERIQUES AMSTRAD CPC 
Tout ce que peut réaliser un amateur d'électro- 
nique avec un CPC. Interfaces, programmateur 
d'EPROM... Un très beau livre de 450 pages. 
Réf: R.235 - Prix : 199 F 


TECHNIQUES DE PROGRAMMATION 
DES JEUX EN ASSEMBLEUR 

G. FAGOT-BARRALY 

Cet ouvrage contient des programmes de jeux 
écrits pour les ordinateurs Amstrad CPC 464, 
664 et 6128. Chaque programme est accompa- 
gné d'une analyse pédagogique de la structure 
des phases essentielles et de tableaux résumant 
la fonction et les valeurs des principales varia- 
bles. Réf: S.208 - Prix : 98 F 


© GRAPHISME EN ASSEMBLEUR 

SUR AMSTRAD CPC 

F. PIEROT 
Programmer des applications graphiques en 
assembleur sur Amstrad (464, 664, 6128). De 
nombreuses routines. Réf : P.340 - 
Prix : 145 F 


© AMSTRAD EN MUSIQUE 2. LEMAHIEU 
Pour les amateurs déjà initiés au langage BASIC, 
traduction d'œuvres musicales sur Amstrad. Par- 
tant de la génération de sons, en passant par 
le synthétiseur musical programmable. 

Réf : P.324 - Prix : 165 F 


RSX ET ROUTINES 

ASSEMBLEUR SUR AMSTRAD 

D. ROY, J.-J. WEYER 

De très nombreux programmes de graphismes et 
de mathématiques permettront aux possesseurs 
d'Amstrad d'améliorer leurs connaissances en 
assembleur Z80. Réf : P.352 - Prix : 200 F 


MIEUX PROGRAMMER SUR AMSTRAD 
M. ARCHAMBAULT 

Complément pratique du manuel d'origine. L'art 
de concevoir et de créer un programme d'une 
manière efficace. Multiples astuces. Explique clai- 
rement certains points obscurs du manuel d'ori- 
gine. - Prix : 85 F 


PROGRAMMES UTILITAIRES 

POUR AMSTRAD 

M. ARCHAMBAULT 

Nombreuses routines : utilitaires de programma- 
tion, utilitaires graphiques, la gestion de fichiers, 
utilitaires imprimantes. - Prix : 85 F 


APPRENEZ L'ELECTRONIQUE 

SUR AMSTRAD 

P. BEAUFILS, B. DESPERRIER 
Programmes permettant de visualiser les phéno- 
mènes complexes de l'électronique. 

Prix : 95 F 


O LA BIBLE DU PROGRAMMEUR 

DE L'AMSTRAD CPC 
Ce livre est l'ouvrage de référence pour tous ceux 
qui veulent programmer en pro. Organisation de 
la mémoire, le contrôleur vidéo, les interfaces, 
l'interpréteur de toute la ROM désassemblée et 
commentée, etc. Réf : R.226 - Prix : 249 F 


CO COMMUNIQUEZ AVEC AMSTRAD 

D. BONOMO, E. DUTERTRE 
Pour tous les passionnés d'ondes courtes, codage, 
décodage, réception/émission, interfaces. 
Prix : 90 F 


© 102 PROGRAMMES 

POUR AMSTRAD CPC 

J. DECONCHAT 
Idéal pour débutants, pour guider le lecteur dans 
l'exploration du BASIC AMSTRAD. Les program- 
mes à recopier sont classés par niveaux, chacun 
d'eux faisant appel à de nouvelles connaissan- 
ces. Réf : P.222 - Prix : 120 F 


AMSTRAD A L'ECOLE 

D. NIELSEN, G. AMPUDIA 

Destinés aux enseignants, parents et élèves : le 
calcul, le français et l'éveil. Un cahier de vacan- 
ces permet aux enfants de concevoir eux-mêmes 
de petits programmes. Réf : P.343 - 

Prix : 120 F 


O BASIC PLUS DE 80 ROUTINES 

SUR AMSTRAD 

M. MARTIN 
L'auteur propose 80 routines pour simuler des 
fonctions qui n'existent pas directement sur la 
machine. Le lecteur doit déjà connaître le BASIC 
de l'AMSTRAD CPC pour utiliser au mieux cet 
ouvrage. Tél. P.286 - Prix : 100 F 


PERIPHERIQUES ET FICHIERS 

SUR AMSTRAD CPC 

D.J. DAVID 

Les ordres correspondant à chacun des périphé- 
riques sont présentés : lecteurs de cassettes et 
de disquettes, imprimantes, crayon optique, 
manette de jeux et RS232. La programmation 
des disques est étudiée en accès séquentiel à 
l'aide d'ordre BASIC et en accès direct à l'aide 
de routines originales. Réf : P.316 - 

Prix : 120 F 


c- 


BASIC AMSTRAD 1 (méthodes pratiques) 
J. BOISGONTIER 

Jeu d'instructions très complet : gestion des inter- 
ruptions en BASIC, sortie stéréo au haut-parleur 
intégré, etc. Réf : P.230 - Prix : 105 F 


© BASIC AMSTRAD 2 

(programmes et fichiers) 

J. BOISGONTIER 
Programmes graphiques utilisant la haute réso- 
lution ainsi que la gamme couleurs. Programmes 
de gestion de fichiers pour Mailing, étiquettes, 
créations d'histogrammes. Jeux à exécution très 
rapide. Programmes éducatifs. Réf : P.249 
Prix : 95 F 


TURBO PASCAL SUR AMSTRAD 

B. BRANDEIS, F. BLANC - CPC et PCW 
Toutes les commandes sont expliquées et illus- 
trées pour arriver à un haut niveau de connais- 
sances : faire de l’assembleur à l'intérieur des 
routines Pascal, connaître le fonctionnement de 
Heap et de Pile, maîtriser les pointeurs etc. 
Réf : P.310 - Prix : 135 F 


SUPER GENERATEUR DE CARACTERES 
SUR AMSTRAD 

J.-P. SEHAN 

Propose un programme original de création de 
caractères graphiques qui peuvent être utilisés 
tels quels pour illustrer des programmes de jeux 
ou modifiés au gré de l'imagination du lecteur. 
Réf : P.300 - Prix : 140 F 


TRUCS ET ASTUCES T1 

POUR AMSTRAD CPC 

Graphismes, fenêtres, langage machine. Ses 
super programmes sont inclus (gestion de fichiers, 
éditeurs de textes et de sons). Réf : R.221 
Prix : 149 F 


TRUCS ET ASTUCES T2 POUR CPC 

Vous y trouverez un générateur de menus, de 
masques, des aides à la programmation comme 
un DUMP etc. Réf: R.221 - Prix : 129 F 


LES ROUTINES DE L'AMSTRAD CPC 
Pour bien connaître et utiliser les routines utiles 
du 6128, 664 et 464. À la portée de tous. Nom- 
breux programmes utilitaires. Réf : R.239 
Prix : 149 F 


[] DEBUTER AVEC LE CPC 6128 

Tout est clairement expliqué, aussi bien pour le 
matériel que pour le logiciel. Réf :-R.248 
Prix : 99 F 


© Nouveau ! COMPILATION CPC 
Numéros 1, 2, 3, 4 - Prix : 70 F 


C) JOUEZ AVEC MO5 
Eddy DUTERTRE........ 


] MIEUX PROGRAMMER SUR ORIC 
Michel ARCHAMBAULT..110 F 


40 F 


COMMUNIQUEZ AVEC ORIC 
Denis BONOMO 
et Eddy DUTERTRE 145 F 


C'INTERFACE POUR ORIC-1 ET ATMOS 
M. LEUREL 


C ORIC A NU 
Fabrice BROCHE 


PLUS LOIN AVEC LE CANON X07 
Michel  GANTIER 


SYNTHETISEUR DE FREQUENCE 

M. LEVREL F6 DTA 

Réalisé par un radioamateur, cet exposé n'a d'au- 
tres buts que de donner au plus grand nombre 
le désir et les moyens de réaliser sa propre sta- 
tion, tous modes BLU, FM ou tout autre récep- 
teur de grande qualité. 

Prix : 125F 


© LA BIBLE DU GRAPHISME 

Tout sur le GSX. Programmation d'un logiciel 
PAINT graphismes de gestion, graphismes vec- 
torisés, fonctionnement et réalisation d'un light 
pen. Graphisme en langage machine, tout sur le 
graphisme CPC et CPW. Réf: R.227 

Prix : 199 F 


© LE GRAND LIVRE DU BASIC CPC 6128 
Ce livre vous permet d'exploiter à fond les capa- 
cités du BASIC LOCOMOTIVE. Attaquer les dif- 
férents domaines de la programmation : tris, fenê- 
tre, protection, sons et musique, mémoire de 
masse avec l'AMDOS et le RAMDISK. Nombreux 
listings d'application de haut niveau, fournis et 
commentés. Réf : R.268 - Prix : 149 F 
©] PROGRAMMER 

VOTRE TRAITEMENT DE TEXTES 

J.-C. DESPOINE 
Traitement de textes présenté pour l'essentiel en 
assembleur. Pour 464, 664 et 6128 mis au point 
avec une DPM2000. Il peut facilement être 
adapté à d'autres imprimantes. Réf : S 221 
Prix : 128 F 


[] PROGRAMMES EN LANGAGE MACHINE 
S. WEBB 

La façon de programmer l'équivalent des instruc- 
tions BASIC : PRINT, GOTO, GOSUB, FOR/NEXT 
etc, est tout d'abord étudiée, puis ces notions 
sont appliquées à la réalisation d'un jeu d'action. 
De nombreux sous-programmes pourront être réu- 
tilisés par le lecteur dans ses propres program- 
mes. Réf: S.195 - Prix : 82 F' 


CONCEVOIR UN EMETTEUR 
EXPERIMENTAL 

Pierre LOGLISCI 

Entièrement consacré à des montages à tran- 
sistors, le livre est la synthèse d'innombrables 
recherches et le fruit d'une grande passion que 
l'auteur, enseignant enthousiaste et enchanté, 
communique à chaque page et invite à partager. 
Prix : 69 F 


LA PROPAGATION DES ONDES 
Serge CANNIVENC 

Seuls ouvrages de référence de langue française 
sur la propagation des ondes. Ils constituent un 
support de cours idéal pour l'enseignement 
supérieur. 


Q Tome 1 - Prix : 165 F 
Tome 2 - Prix : 253 F 


LA RECEPTION DE SATELLITES METEO 
Loic KUHLMANN 

Ce livre est destiné à un lecteur non spécialiste 
et n'a d'autre ambition que de l'intéresser aux 
techniques de réception des satellites météoro- 
logiques transmettant des photographies de la 
Terre. Ù 
Prix : 145 F 


© LOCOSCRIPT 

B. LE DU 
Ce livre est une introduction et par sa démarche 
pédagogique, il vous permettra une découverte 
aisée et rapide de ce traitement de textes. C'est 
aussi un ouvrage de référence auquel vous pour- 
rez vous reporter et un guide pratique. 
Réf: S.195 - Prix : 82 F 


[) ASTROCALC 
G. BLANC, P. DESTREBECQ 

Si vous souhaitez disposer d'un outil de calculs 
permettant l'élaboration d'un thème natal ou 
d'une révolution solaire, la comparaison de thè- 
mes, la recherche automatique des transits et 
progressions tout en comprenant les mécanismes 
mis en œuvre. Alors cet ouvrage vous comblera. 
Réf : S.162 — Prix : 148 F 


© PREMIERS PROGRAMMES AMSTRAD 
R. ZAKS 

Quels que soient votre âge et votre formation, 

écrivez votre premier programme BASIC en moins 

d'une heure. Présentation claire, comportant de 

nombreux diagrammes et illustrations en couleur. 

Réf : S.105 - Prix : 118F 


©) UNIVERS DU PCW 

P. LEON 
Environnement matériel, commande de CP/M 3.0 
le BIDOS, le BIOS, fichiers binaires, éditeur de 
disquettes, désassembleur Z80, graphismes, 
caractère à la loupe. - Prix : 119 F 


[] TECHNIQUE DE LA BLU 

G. RIGAUD F6CER 
La bande latérale unique est le mode de trans- 
mission le plus utilisé actuellement pour le tra- 
fic sur les bandes décamétriques et pour les liai- 
sons à grande distance en VHF, UHF et SHF. 
Prix : 95 F 


[1 LES ANTENNES 

R. BRAULT et R. PIAT 
Cet ouvrage met à la portée de tous, les grands 
principes qui régissent le fonctionnement des 
antennes. Mais aussi permet aux lecteurs de réa- 
liser et de mettre au point les nombreux dispo- 
sitifs décrits. Réf: R 439 
Prix : 185F 


C] EXPEDITION CARTIER LABRADOR 
EN CANOE KAYAK 


49 F 
162F 


DES AFFAIRES A NE 
PAS MANQUER 


Pensez qu'une 
réparation coûte 
plus cher qu'une 
protection ! 


Housses de protection - Simili cuir - (le lot clavier + moniteur) 
Fabriquées et garanties par nos soins. 


CPC 464 et 664 Moniteur monochrome O 184 F (port compris) 
Moniteur couleur 184 F 


CPC 6128 Moniteur monochrome 184 F 
Moniteur couleur 184 F 


PC 1512 Moniteur monochrome = 190 F 
Moniteur couleur O 


MACINTOSH Clavier simple 
Clavier pavé numérique 


DES DISQUETTES 


(doubles faces, doubles densités) 


(port compris) 


— Disquettes 5" 1/4 avec la pochette 50 F 
lot de 10 
- Disquettes 3" 1/2 avec la pochette 190 F 
lot de 10 
— Disquettes 3" avec la pochette cartonnée  270F 
lot de 10 


LE COQ PATRICK 
DU VILLAGE SEBASTIEN 
(Olympia) 


ELEPHANT KILLER EXTERIEUR NUIT 


PAS DE PITIÉ 
POUR LES HÉROS 


PAPY FAIT DE LA ——— 
RESISTANCE TRANCHES 
DE MIE 


DOUX MOMENTS 
DU PASSÉ 


DR 
4 S NUIT D'IVRESSE 
ÿ DE GUERRE SCOUT NUIT D'IVRESSE 
MONDIALE JE FILE TOUJOURS 
A L'ÉTRANGER 3. 


L'HORRIBLE PSYCHOSE 
SEXY VAMPIRE 


MOTO MASSACRE 


POLICIERS 


LA VENGENCE BRULE DEFI SANGLANT 
DE LAMA  CONTRE-ATTAQUE 


VIOLENCE 
A MANAOS 


RAGE DE TUER 


LE JEUNE TIGRE — KENSAI : À ABATTRE - 
DU KUNG-FU | = nn TEMOIN A AB E 


Collection EROTIQUE 


< 


© 
ÿ 


DESTIN ELECTRIC BLUE ELECTRIC BLUE ELECTRIC BLUE 
DE FEMME 001 002 006 


SAINT-TROPEZ 
INTERDIT 


EMMANUELLE 
ET LES COLLEGIENNES 


— FLEUR DU VICE 
— HAPPY HOOKER 
— INASSOUVIE 

— JOSEPHA 

— MAITRESSE 

— POSSEDEE 

— VICES PRIVES 


ELECTRIC BLUE ELECTRIC BLUE ELECTRIC BLUE 


ELECTRIC BLUE xs se dE 


007 


Te SMALL SUEDOISES ADORABLE AMOURS 
& RL TOWN GIRLS AU PENSIONNAT VICTORIA EN FAMILLE 
LOVF ESCTASY  MALICIEUSE COUPLES LES DEUX LES GUERRIERES 


CHRISTINA EN CHALEUR GOUINES DU SEXE _ LADY BLUE LES CHARLOTS EN FOLIE 
— MEMOIRE D'UN PERVERS — LES 4 CHARLOTS MOUSQUETAIRES 
M -LINSATIABLE — UN CHIEN DANS UN JEU DE QUILLES 

— VIOLS EN CORNETTES — L'EMMERDEUR 

Q — LA SOUMISE — SALUT LA PUCE « 
— TRAITEMENT SPECIAL — LES SEDUCTEURS 

— LE TOMBEUR, ” 
LE FRIMEUR w 


ET L'EMMERDEUSE 


o! 
PE 


LA SUCETTE ONDULATIONS RICHES 
MAGIQUE PERMANENTES ET PERVERS 


COMÉDIE 


LES COMPERES 


ui mm ot 


TREIZE POUPÉES 
A LA FILE 


SUPERSTARD ORGIES FEU AU VENTRE 
SEKA REVOLUTIONNAIRES 


BRULANTE SEKA 


PAGES OY OU 


LES RIPOUX 


LAÉTNEM  AUDIARD 


 FLIC OU VOYOU L'ALPAGUEUR 


SERIES NOIRES 
LE CORPS 


DE MON ENNEMI 


— DOCTEUR POPAUL 
— LE GUIGNOLO 

— L'INCORRUPTIBLE 
— LE MAGNIFIQUE 

— PEUR SUR LA VILLE 
— STAVISKY 


# Kio 


PIEGE À FLICS BLACK MURDERS 


LE PROFESSIONNEL 


POLICIERS politiques NOUVEAUTÉS 


us [OUPS 
==. ENTRE EUX 


a 
TÉMOIN OPÉRATION LES LOUPS GINGER 
DETENU EN ATTENTE À À ABATTRE JAGUAR ENTRE-EUX ET FRED 
DE JUGEMENT À 


Collection X ENFANTS 


— LA REVANCHE DES HUMANDOIDES 
— PING-PONG 


NI LOI TOI. 


BROUTE LE PLAISIR INFIRMIERES 
MINOU DANS LA PEAU LUBRIQUES 


PF Embrochoz - mol 
por les deux Trou 


DE - DUR: = L 
< ! LA UNE JEUNE PARFUMS INITIATION 
VEUVE DE LINGERIES D'UNE 
EMBROCHEZ PETITS TENDRES ENFER ANAL EN EXTASE 3 TROUS INTIMES ADOLESCENTE 
MOI DERRIERES SOUVENIRS 


PAR LES TRES D'UNE BOUCHE 
2 TROUS ACCUEILLANTS GOURMANDE 


à Ls dé INFIRMIERES PETITS SLIPS EXIGENCES L'OUVREUSE LES UNS 
di [PA JOUISSEUSES A CROQUER ORIENTAL TRES N'A PAS LES TROUS DANS 
HAN] KES SPECIALES DE CULOTTE SONT PERMIS LES AUTRES 


EXTASES DELICIEUSES HOTESSES 
DANOISES FESSEES TRES INTIMES 


à < 4 - 
VOULEZ-VOUS JOUISSEUSE JOSEPHINE : 

JOUIR HYSTERIQUE PLUS SALOPE DESIR 
QUE MOI INAVOUABLE 
TU MEURS DE JOSEPHINE 


: ANAL PLUS 
LA GRANDE JAMES BANDE ERECTIONS 


EXTASE OOSEX N° 1 LEGISLASCIVES 


LES CINQ 
es GODE SEVE = DOIGTS DE 


NE e ie EE —— L'AMOUR 
; 


MSEULOET GOUINE 
ANT" @, LA CROISIERE DRERE A 


l an DE LA 


JOUISSANCE 
SANS PEUR ET 
SANS CULOTTE 


REGALE-MOI ET 
COMME 
UNE BRUTE 


PULSIONS ORGASMES INSATIABLE 
SECRETES DU 3° TYPE JOSEPHINE 


PETITES 
CULOTTES |. 
CHAUDES ET |! 
MOUILLEES | 8 


| JE suis 
VICIEUSE 

| MAIS JE 

ME SOIGNE 


GODE SEVE 
THE GOUINE 


LL) JOSEPHINE 
LES SALOPES  L'ENFER DE LA 
DU PLAISIR PERVERSION 


LES PETITES  L'ECOLE DES MEURTRE 


MOI TINTIN BRESILIENNES  DRAGUEUSES A DOMICILE 


MSN ES 


FRS 


TT 
\ DAS 


+ Un rappel des cours 


MATHS - 6 
Algèbre pour classe de 6ème 
(également intéressant pour 
CMi-CM2) 

M. et M.-T. COQUIO 


PTS PNE 


\, 

CESR 

Si? LT 
NACRE 


= 
Ca 


CHAQUE LOGICIEL COMPREND 


+ Opérations + ;-;x;/ 

+ Fractions 

+ Calculs sur les relatifs 

+ Pourcentages avec graphisme 

+ Suites proportionnelles avec graphisme 
+ Calculs d'aires 

+ Symétries orthogonales 


= 
CAT AY 7A 
NN T 
22 En ] 
7 ISA 
LE 


PR 
AS NAS 
Nr 
IST =NIX 


VS 
_ 
g 


+ Des exemples ou démonstrations ———————————— 
+ Des exercices programmés ou libres 


+ AMSTRAD 
KT ——— 
1AISK. = — 


+ ATARI ST 


MATHS - 54 

Algèbre pour classes de 5ème 
et 4ème 

M. et M.-T. COQUIO 


+ Multiples et diviseurs d'un entier 

+ Nombres premiers 

+ Puissances d'un entier naturel 

+ Décomposition d'un entier naturel 

+ P.G.C.D. et P.P.C.M. 

+ Calcul algébrique 

- Rationnels (simplifications et opérations de fractions) 
* Equations et inéquations dans R 


| (octobre) 


+ AMSTRAD 
D _— _ 
1 disk 


+ ATARI ST 
1 disk 


170F 
200 F 


MATHS -3 
Algèbre pour classe de 3ème 
M. et M.-T. COQUIO 


+ Constructions de vecteurs 

+ Calculs sur les droites 

+ Systèmes linéaires 2,2 

+ Régionnement du plan 

+ Calculs sur les racines carrées 
+ Notions de trigonométrie 


PC 
+ ATARI ST 
1 disk 


EQUATIONS 

Algèbre pour classes de 3ème 
et2nde 

M. COQUIO 


+ Equations du second degré avec interprétation graphique 
+ Systèmes linéaires 2,2 

+ Systèmes linéaires à n équations 

+ p inconnues (n, p < 8) (sur disquette seulement) 


+ AMSTRAD 
(=: 
1 disk 


e Un rappel des cours eee 
+ Des exemples ou démonstrations — - — 


MATHS - Second cycle 1 
Niveau 2nde à terminales 
M. COQUIO 


MATHS-Second cycle 2 
Algèbre 2ème à terminales 
M. COQUIO 


+ Des exercices programmés ou libres 


+ Equations du second degré avec interprétation graphique 

+ Courbes Y = F{(x) avec choix du repère et des unités 

+ intégrales par la méthode des rectangles avec interprétation 
graphique et exercices 

+ Suites récurrentes avec graphisme 

+ Fonctions réciproques 


+ Image par application affine 
+ Courbes avec options (dont hardcopy) 

+ Courbes superposées 

+ Courbes définies par morceaux (disquette) 
+ Famille de courbes 

+ Courbes planes (cinématique) 

+ Courbes définies par une intégrale 


GEOMETRIE plane 
Niveau 4ème à terminales 
M. HIRTZLER 


Utilitaire de dessin pour tracer points, droites, segments et cercles 
avec résultat de géométrie analytique. 

Utilitaire de TRANSFORMATIONS (translation, homothétie, simili- 
tude...) sur des figures simples (carré, triangle, cercle..). 


ESPACES et SOLIDES 
Niveau 1ère et terminales 
M. HIRTZLER 


FONCTIONS et 
COMPLEXES 

Niveau Terminale et Sup. 
M. HIRTZLER 


Utilitaire de dessin dans l'espace avec la perspective "fil de fer”. 
Représentation de solides dans l'espace avec choix des angles de 
perspective. 


NOUVEAUTES 


— Tracé de y = f(x), polaires, droites, enveloppes avec choix du 
repère et des unités. 

- Calculs, calculs d'aires 

— Exemples (conchoides, cissoides, coniques) 

— Complexes (calculs, équations, transformations et exemples). 


Prix TTC 


+ AMSTRAD 
2K7 ___ 200F 
1 disk  250F 


+ AMSTRAD 
Re 


+ AMSTRAD 
TS - 
+ ATARI ST 


(géométrie plane et dans l'espace) 
À disk 


+ AMSTRAD 
1 disk 


+ ATARI ST 
1, OiSK = _ 220F 


FRANCAIS 
Niveau CM1, CM2, 6e 
A. MALASSIS 


701 61 33 


— Dictée réussie 

- Exemples et exercices 

— Conjugaison 

- Participes passés avec ÊTRE et AVOIR. 


Equation, inéquation 4ème et seconde 
TO7, TO8, MO5, MO6 - cassette seulement 


71 00 154 


Balade Outre-Rhin 4ème et 3ème. 
IBM - Disquette 


71.00 153 


Balade au Pays de Big-Ben 6ème et 5ème 
IBM - Disquette 


7100 147 


Enigme à Munich 4ème et 3ème 
IBM - Disquette 


660 42 72 


Je révise sciences 6ème et 5ème 
IBM 


LES UTILITAIRES 


La" triologie" du 6128 (disponibles sur disquette seulement). 


Tasword 6128 "Mailmerge". Le traitement de texte du 6128 
Masterfile 6128 Base de données relationnelle 
Mastercalc 6128 Tableur simple, rapide et puissant. 


Masterfle et Mastercalc peuvent envoyer leurs données vers Tasword. Tous trois sont utilisables sur 464/664 + extension 64K DK' 
tronics. Tasword 6128 peut s'utiliser avec les extensions VORTEX. Clavier AZERTY accommodé. 


Tasword 464 

Tasword "disquette" pour 464 et 664 (avec Tasword 6128) 

Tascopy, copies d'écran (8 tons de gris, formats A4 & A3) 

Tascopy CPC version cassette 

Semabank, gestion de comptes bancaires rapide et fiable 

Statistiques multivariées pour CPC 464 et 6128 

Tasprint CPC sur cassette 

Conversion BUS 6128 nouveau pour périphériques standard (extensions, synthés, 
digitaliseurs..). 


PRODUITS CP.C. ET P.C.W. (2 versions sur la même disquette) 


Tasprint, le typographe. 5 écritures sur CPC, 8 sur PCW. 
(compatible Tasword CPC & PCW, Locosript, Wordstar...) 
Tas-Sign, l'artiste en lettres, enseignes, réclames créez-les vous même... 


PRODUITS P.C.W. 8256 ET 8512 


Tasword 8000, le traitement de texte rapide avec "mailmerge" pour les utilisations 
professionnelles. 

Masterfile 8000, la base de données relationnelle travaillant entièrement en RAM, rapide, 
flexible, simple et puissante. 


PRODUITS "PC" IBM ET COMPATIBLES 


Tasword PC, le traitement de texte des PC, simple, puissant et avec "mailmerge”. 
Tasprint PC, le typographe, 20 écritures, créateur de caractères, mode "machine à écrire". 
Tas-Sign PC, l'artiste en lettres, enseignes, réclames créez-les vous-même... 
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200 F Port compris 


AUTO RADIO 


Réf. : CR 150 FL 

GO FM stéréo 

Affichage digital 

Avance rapide 

Horloge incorporée 

2x5W 

Livré avec notice de montage très 
explicative. 


599 F (port compris) 


[2] RADIO CASSETTE 


Double K7 

Réf. : CR 150 FL 

Radio 3 gammes : PO GO FM stéréo 
Enregristrement automatique 
Alimentation pile-secteur 

Micro incorporé : copie automatique 


720 F (port compris) 


RADIO REVEIL 
TELEVISION 

Marque : AUDIOLOGIC 

Réf. : 3705 

Téléviseur noir et blanc 

Normes CCIR : EUROPE 

Haute performance 

Radio PO-GO-FM 

Réveil à affichage digital 

Réveil matin par la TV ou la radio 

Alimentation 220 V ou 12 V 


1 415 F (port compris) 


[4]  RADIO-REVEIL 


Affichage électronique permanent 

24h / 24 

Radio GO-FM 

Réveil automatique radio ou sonnerie 
Garde la mémoire si coupure de courant 


155 F (port compris) 


[s] BALADEUR 


Marque : KASUGA 

Réf. : KC8 

4 couleurs : rouge, bleu, moutarde, 
blanc. 

1 mini lecteur de K7 stéréo 

Pince au dos : livré avec casque 
Alimentation 2 piles R6 (non fournies) 
Un prix très léger : 


124 F (port compris) 


[6] BALADEUR 


Marque : KLERVOX Réf. : VT28 
Enfin 1 mini enregistreur 
Caractéristiqués : 

— lecteur-enregistreur de poche 

— microphone incorporé 

Avance rapide 

Haut-parleur de contrôle incorporé : 
deux vitesses 

Parole : musique égaliseur 3 bandes 
300 Hz - 2 kHz - 8 kHz 

livré avec casque 


615 F (port compris) 


BALADEUR 


Marque : KLERVOX 

1 lecteur de K7 stéréo 
Avance et retour rapides. 
Combiné avec recepteur radio 

FM stéréo et égaliseur à 3 curseurs 
100 Hz - 1 kHz - 10 kHz 

Livré avec casque 

Alimentation 2 piles R6 (non fournies) 


415 F (port compris) 


[8] TELEVISEUR TUBE 


Marque : VIDEOLOGIE Type : 3703 
Téléviseur noir et blanc 11 cm 
Sélecteur VL/VH/VHF 
Alimentation 220 V ou 12 V 
Plaque de fixation voiture 
Boîtier pile 

1 015 F (port compris) 


Lo] TELE VISEUR 
CRISTAUX LIQUIDES 


Marque : CITIZEN Réf. : 18 TA 
Dans votre poche, au bureau, dans la 
voiture, il pèse 290 grammes. 
Réception UHF/VHF 
Reçoit toutes les chaînes françaises. 
Livré avec casque et notice. 
POCHE PORTABLE 

1 515 F (port compris) 
BUREAU PORTABLE 

1 315 F (port compris) 


Réf. : VT-84 


BON DE COMMANDE ATTENTION 


Bien inscrire les ARTICLES dans 
la bonne rubrique ; le port étant cal- 
a adresser à BRETAGNE EDIT'PRESSE -— La Haie de Pan culé en fonction de l'objet a 
35170 BRUZ - Tél. 99.57.90.37 expédier. 


CALCULEZ LE COUT : Montant de l'article + Port = VERITE DES PRIX 


DESIGNATION Réf, | Qté Prix + Port Montant 
aun unitaire 


Envoie UNIQUEMENT en recommandé (20 F par cassette) 


Ma bibliothèque 


Envoie Poste : 10 % 


Etudiez-Branchez 
Scolaire - Utilitaire 


Envoie UNIQUEMENT en recommandé (25 F par logiciel) 


Réf. | Qté Prix Montant 
aun unitaire 


Son et image 


Housses - Disquettes 


Envoie FRANCO "Sur toute la France" (Etranger nous consulter) 


TOTAL 
MONTANT GLOBAL BE 


Je joins mon règlement chèque bancaire En chèque postal CO mandat D carte bleue (Es 


Rp mere mn ie ue 
on IMPERATIF 


Si vous choisissez le paiement 
par Carte Bleue, n'oubliez pas 
d'indiquer le n° de la carte et 
la date de validité ainsi que 

Code postal votre signature 


"Ecrire en majuscules" 


N° CARTE BLEUE 


DATE Limite de valisié [T1 [1 


BIDOUILLE 


REALISEZ UNE 


INTERFACE SERIE RS232 


Pour AMSTRAD CPC 


L'article qui suit décrit la réalisation, le 
fonctionnement et la programmation 
d'une interface série répondant aux nor- 
mes V24 ou RS232 et connectable sur 
le bus d'extension des 464-664-6128. 
Les principales caractéristiques techni- 
ques de cette carte sont : 


— deux canaux (sorties) au standard 
RS232 dont une pour piloter éventuelle- 
ment une imprimante 

— vitesse de transfert réglable par logi- 
ciel 

— alimentation monotension de la carte 
par le bus de l'ordinateur 

— "bufferisation" de tous les signaux 
utiles 

— décodage adresses E/S complet sur 16 
bits. 


Philippe LEBEL 


LA LIAISON SERIE 4 


Pour transmettre des données à des dis- 
tances importantes, on adopte le mode 
de liaison sérielle, Dans ce cas, les diffé- 
rents bits constituant un octet sont 
transmis les uns à la suite des autres. 


bit de départ 


Pour normaliser ce mode de transmis- 
sion, un standard à été implanté: la 
RS232 également appelé V24. 


La figure 1 schématise un signal séricl. 
Le mot commence par un bit de départ, 
se poursuit par huit bits de données au 


bits 
bit 6 
bit 7 


bit de parité 
bit d'arrêt 


== FIGURE 1 == 
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maximum, puis le bit de parité (opuon- 
nel) pour la détection des erreurs en 
cours de transmission et enfin, le ou 
les bits d'arrêt indiquant la fin du carac- 
tère. Il est indispensable de bien définir 
la chronologie des bits contenus dans 
l'information. Cette liaison RS232 
interconnecte un appareil de type DTE 
(Data Terminal Equipement = terminal) 
à un autre de type DCE (Data Commu- 
nication Equipement = un ordinateur). 
La communication entre les deux sys- 
tèmes se fait selon un protocole réglant 
la manière de traiter le flux de données 
et garantissant ainsi une transmission 
synchronisée. Cette norme exige donc 
la présence de signaux de contrôle et de 
commande (DTR-DCD-CTS-RTS). 


D PRINCIPE « 
DE FONCTIONNEMENT 


La figure 2 représente le schéma de prin- 
cipe de la carte. Les circuits ICI à IC4 
sont des amplificateurs de signaux "buf- 
fers" qui augmentent la sortance du 
microprocesseur. Ils ont tous été choisi 
de type bidirectionnel pour des raisons 
de simplification en vue de l'étude du 
circuit imprimé ; seul IC4 use pleine- 
ment de cette propriété par l'inter- 
médiaire du signal d'écriture "WAR". 
Lorsque WR est au niveau bas, le bus 
de données transite de l'unité centrale 
vers l'interface et inversement quand 
WR est haut. La sélection de ce circuit 
est active pour une adresse d'entrée-sor- 
tie égale ou supérieure à FC40, c'est-à- 
dire pour Y3 de IC6 au niveau bas. 

Les circuits ICS à IC7 assurent le rôle 
de décodage mémoire. Ils doivent acti- 
ver les circuits IC8 et IC10 pour des 
adresses précises. Ainsi IC8 sera sélec- 
tionné pour les adresses entrée-sortie 
(E/S) comprises entre FCSC et FCSF, 
ce qui se traduit par un niveau bas sur 
la broche 9 de IC7. T1 inverse ce si- 
gnal puisque l'entrée "CLK" de IC8 est 
active haut. Le circuit IC10 quant à lui 
sera actif pour les adresses validées 
entre FC7C et FC7F, broche 7 de IC7. 
Rappel : grâce à des signaux de com- 
mande spécifiques, le Z80 peut diffé- 
rencier un accès mémoire d'une adresse 
d'E/S. Toutes les opérations ayant pour 
référence la mémoire seront validées par 
le signal MREQ du microprocesseur, 
alors qu'une adresse d'E/S sera accom- 
pagnée de IORQ. Cette différenciation 
se retrouve au niveau des instructions. 
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ES ss _ ss 


RD ns 


411  OOOOoOOoOoO 


ss sn = OOOoO--- — = OO OOoO 
100210011000 0O 


RA/TA 


Soon OmMOsOor0 m0 +0 


a 


FT/ER (Hz) 


800 
1200 
1760 
2152 
2400 
4800 
9600 

19200 
28800 
32000 
38400 
57600 
76800 
115200 
153600 
307200 


ææ Tableau A == 


IORQ sera actif (niveau bas) pour des 
instructions du type "OUT" et "IN", il 
fait partie intégrale du décodage d'adres- 
se (broche 5 de IC7). 


IC8 est un registre, son rôle étant de 
recopier sur ses sorties (Q1 à Q8) les ni- 
veaux logiques présents sur les entrées 
(D0 à D7) à chaque front montant du 
signal CLK (broche 11). Grâce à ce 
composant, le réglage des vitesses de 
transfert appliquées au circuit SIO sera 
effectué par programme. Ce circuit rem- 
place une série d'interrupteurs que l'utili- 
sateur devrait positionner à chaque mo- 
dification des vitesses. L'ensemble R1- 
C2-T2 permet la remise à zéro du re- 
gistre à l'initialisation de l'unité cen- 
trale "RESET" (broche 16 de IC3). IC9 
est un double générateur de signaux 
d'horloge à fréquence variable. Ils sont 
présents sur les sorties FR et FT, cha- 
cund'eux détermine la fréquenceélémen- 
taire du fonctionnement des voies A et 
B. Le tableau A indique les fréquences 
disponibles en fonction de l'état des en- 
trées R et T. 


Circuit périphérique de la famille Z80, 
IC10 est spécialisé dans les transmis- 
sions séries "USART" (Unit Synchro- 
nous Asynchronous Receive Transmit). 
Deux voies distinctes et indépendantes 


sont disponibles, permettant ainsi la 
connection de deux appareils répondant 
aux normes de la RS232 et fonction- 
nant éventuellement à des vitesses diffé- 
rentes. 

La complexité de ce circuit demanderait 
un cours complet de plusieurs pages 
avant d'être en mesure d'en comprendre 
son fonctionnement. Les quelques li- 
gnes qui suivent permettront néan- 
moins d'en connaître le minimum pour 
sa programmation. 

Chaque canal est adressé par l'inter- 
médiaire de l'entrée B/A : 

-B/A=0 —> canal A 

-B/A=1 —> canal B 

Le niveau logique du signal C/D déter- 
mine si l'octet présent sur le bus de don- 
nées doit être interprété comme un mot 
de commande ou de donnée (valeur). 
-C/D=0 —> donnée 

-C/D=1 —> commande 

Ainsi, les adresses pour le canal A 
sont : 

— FC7C pour un mot de donné 

— FC7D pour un mot de commande 
Pour le canal B : 

— FC7E pour un mot de donnée 

— FC7F pour un mot de commande 

La programmation du facteur de divi- 
sion (1-16-32-64) de l'horloge élémen- 
taire présente sur les entrées TXCA- 
RXCA pour le canal À et TXCB- 


RXCB pour le canal B règle la vitesse 
réelle du transfert des données. 
Exemple : pour TXCA-RXCA égale à 
153600 Hz, il faudra programmer un 
facteur de 16 pour obtenir une vitesse 
de 9600 bauds. 

Les différents signaux d'E/S de chaque 
voie du SIO possèdent des niveaux lo- 
giques "TTL" (5V et OV). Or, afin 
d'être compatible au standard RS232, 
l'amplitude de ces signaux doit varier 
entre +12 et -12V, afin d'assurer une 
plus grande immunité aux parasites. Le 
décalage de niveaux est réalisé par les 
circuits IC11 et IC12. 

Le MAX232 est un double émetteur- 
récepteur qui satisfait, comme l'indique 
son nom, aux normes RS232, bien 
qu'il se contente d'une simple alimen- 
tation de 5V pour "driver" les lignes de 
transmission. 

Ce circuit comporte trois éléments : 

— un double émetteur 

— deux pompes de charges délivrant 10 
et-10V 

— et un double récepteur. 

L'intérêt que l'on peut porter au 
MAX232 se situe bien sûr au niveau de 
ses convertisseurs de tension. Grâce à 
ce composant, les alimentations tradi- 
tionnelles de +12 et -12V ne sont plus 


- REG:STRE D'ECRITURE 3 (UR3). 
27:D6:0S:D4:D3:D2:01:D0: 


ü VALIDER Rx 


-rOC-- 
Om O----. -. - 
2 
x 


Rx S BITS/CARACTERE 

7 BITS/CARACTERE 
Rx 5 BITS/CARACTERE 
Rx 8 BITS/CARAÎTERE 


- REGISTRE D'ECRITURE 4 (UR4). 


:D7:D6:DS:D4:D3:D2:D1:D0: 


: 
‘ 
ï 
: ‘ ‘ 
: 
‘ 
n 


O0O------ 


: d : INHIBER LE CHARGEMENT DU 
ï î CARACTERE DE SYNCHRO 

' ï : MODE RECHERCHE D'ADRESSE 
ï ï VALIDATION CRC DE Rx 

ot ENTRER EN PHASE RECHERCHÉ 
ï AUTOVALIDER 


ï VALIDATION PARITE 
PARITE PAIRE/IMPAIRE 


COMMANDE NULL 
INITIALISER C 


:D7:D6:DS:Ca:D3:D2:D 
; : © O0 
6 ÿ ÿ : 0 0 
5, +: 4 4 6: OT 
SO SE 6 6 COQ à 
: : ÿ ! 1 1 0 
ÿ ÿ 3 +4 1 1 0 
M + 4 à LE 
te OO & LE À 4 
ü ‘  O O O COMM 
: ‘ O0 O 1  ENVO 
: # OO 1 O ÏINIT 
ï ‘ O0 1 1 INIT 
: b 1 O O VALI 
ï ü 1 O0 1 INIT 
ü ü 1 1 0 INIT 
: ‘ 1 1 1 RETO 
0 0 

0 1 

1 0 

1 1 


INITIALISER L 


- REGISTRE D'ECRITURE 1 


:D7:D6:DS:D4:D3:D2:D 

VALIDATION ATTENTE/PRET : : : : ï ï : 
FONCTION ATTENTE/PRET CR 
ATTENTE/PRET Rx Tx k. 4 î 

0 0o INHI 

O 1 PREM 

1  O INT 

INT 

Cla 


- REGISTRE D'ECRITURE 2 


07:06 :0S:Da: 


V7. #8 
v6 5 
VS: 
Va É 


D3:02:DL;:D0: 


CURO RSR MECS AN ALES PRO D SEE 
1:D0: 
(e] REGISTRE O 
1 REGISTRE 1 
a REGISTRE 2 
1 REGISTRE 3 
[ REGISTRE à 
1 REGISTRE S 
[e] REGISTRE 6 
1 REGISTRE 7 
ANDE NULLE 


YER ABORT (mode SDLC) 
TALISATION INT. EXTERNE D'ETAT 
IALISATION DE CANAL 

DER INT. SUR RECEPTION SUIVANTE 
lALISER INTERRUPTION DE Tx 
TALISER ERREUR 

UR INTERRUPTION (CANAL A) 


E 
RC DE RxR 


INITIALISER CRC DE Tx 


E VERROU DE L'EMETTEUR 


CUR1). 


1:D0: 

‘ VALIDATION INT. EXT 
VALIDATION INT. Tx 
AFFECTATION D'ETAT 

(CANAL B) 
BER INT. Rx 
IER CARACTERE Rx INT. 
SUR TOUS LES CARACTERES Rx 
SUR TOUS LES CARACTERES Rx 
parit( n'affecte pas le vecteur 


CR 2 ) ER RER GER RS DC DUT LAN FLE EE DUT 


: vo 
Vi 
v2 
V3 


(YR2 contient le vecteur d'interruption pour le canai B seulement) 


REGISTRE D'ECRITURE 5 
:D7:D6:DS:D4:D3:02:D1 
DTR Hé + à 4 à ! : 
O0 O Tx 
O 1 Tx 
1  O Tx 
1 1 Tx 
- REGISTRE D'ECR 
:D7:D6:DS:Da: 
SYNC BIT 7 hi nn + 
SYNC BIT 5 CE 
SYNC BIT S CE 
SYNC BIT à ns 


(UR6 est programmé pour contenir 


- REGISTRE D'ECR 


SYNC BIT 15 
SYNC BIT 14 
SYNC BIT 13 
SYNC BIT 12 


n 
—_—_— 


: Q VALIDATION MODE SYNCHRO 
ï ï 1 1 BIT D'ARRET/CARACTERE 
ï ' ‘ O 1 1/2 BIT D'ARRET/CARACTERE 
ï ï î 1 2 BITS D'ARRET/CARACTERE 
ï î O © CARACTERE A 8 BITS DE SYNCHRO 
î 1 O 1 CARACTERE À 16 BITS DE SYNCHRO 
‘ 1 O MODE SDLC 
ï ! 1 1 MODE SYNCHRO EXTERNE 
O O MODE HORLOGE X1 
Q 1 MODE HORLOGE X16 
1 O MODE HORLOGE X32 
1 1 MODE HORLOGE X64 


(UR7 est programmé pour contenir le © 


=  TABLEAUB 


‘D7:D6:0S:Da:D3:D2:D1:D0: 


CJRS ). 


:DO: 


: VALIDATION CRC Tx 
RTS 
SDLC/CRC.15 
VALIDATION Tx 


ENVOYER ARRET (BREAK) 


S BITS/CARACTERE 
7 BITS/CARACTERE 
6 BITS/CARACTERE 
8 BITS/CARACTÈRE 


ITURE 6  (YR6:. 


D3:D2:D1:D0: 


: ‘ ï ï SYNC BIT Q 
CRC SYNC BIT 1 
ï ' SYNC BIT 2 
: SYNC BIT 3 


le caractere de SYNCHRO en transmission 


ITURE 7 (UR7). 


î SYNC BIT 8 
ï SYNC BIT 9 
SYNC BIT 10 


: . SYNC BIT i1 


aractère de SYNCHRO en réception) 
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Oo © © JO ou à w 


_ 


A14 


A12 


FIGURE 2 


BSIRERRSS 
2090000 


D © & 


< 
8 
O 
6 


Schéma de principe de l'Interface RS232 


ICIàIC4 = 741S245 
IC5àlC7 =741S138 
Ler:] = 74LS273 
IC9 = COM8116 


1C10 = Z80A S10 
1C11 et C12= MAX232 
Qz = Quartz 4,9152 MHz 
S = (SIL) 8+1 de 1 kQ 

2 connecteurs DIL 2x13 


TietT3 = 2N2222 

T2 = 2N2907 

C1  =22pF/10V 
c2 =4,7 UF tantale 
C3àC6 = 22 UF tantale 
R1 …10kn 

R2 -680n 

R3 etR4 = 12kN 
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nécessaires. En effct, ce circuit intègre 
deux pompes de charges afin d° créer 
des tensions de sortie compatib'es aux 
normes spécifiées. 

C3-C4-CS-C6 contribuent au décalage 
de niveaux ; C7 et C8 filtrent la fré- 
quence parasite (16 Khz) présente sur la 
broche "V-". T3 convertit en niveaux 
TTL, l'état du signal d'entrée DCD. 

Au connecteur À (câblage de type DTE) 
sont reliés tous les signaux utiles au 
dialogue propre à une RS232. Le con- 
necteur B (câblage de type DCE) est 
limité à sa plus simple expression, per- 
mettant cependant la connection d'un ap- 
pareil dialoguant uniquement par les 
trois signaux : Tx-Rx-DCD; (impri- 
mante, terminal, télétype..). 

Le cordon reliant l'interface à l'Amstrad 
sera de type câble plat au bout duquel, à 
chaque extrémité, sera serti un connec- 
teur encartable 2x25 points. 


> DESCRIPTION DES  <« 
REGISTRES INTERNES 
DU SIO Z80 


LES REGISTRES D'ECRITURE 


Le circuit SIO contient huit registres 
d'écriture (WRO-WR7) pour le canal B 
et sept pour le canal A (WRO-WRI ct 
WR3-WR7). Le registre WR2 com- 
porte le vecteur d'interruption pour les 
canaux À et B. 

les registres sont programmés séparé- 
ment pour positionner chaque canal 
dans sa configuration spécifique. 

A l'exception de WRO), la programma- 
tion des registres d'écriture nécessite 
deux octets. Les trois bits du premier 
octet de WRO (D0-D2) pointent le 
registre choisi, le second octet est le 
mot de commande effectif écrit dans le 
registre pour configurer le SIO. 

Après pointage d'un registre, le pro- 
gramme est libre soit de le lire pour tes- 
ter le registre de lecture, soit d'écrire 
pour initialiser le registre d'écriture. 
(voir tableau B). 


LES REGISTRES DE LECTURE 


Le SIO contient trois registres de lec- 
ture (RRO-RR?2) qui peuvent être lus 
pour obtenir l'information d'état de 
chaque canal (excepté RR2 du canal B). 
L'information d'état comporte les condi- 


- REGISTRE DE LECTURE O  (RRO). 


:D7:D6:D5:Da:03:02;:D1:00: 


BREAK/ABOF : Doi Ho 4 fi 4  !____CARACTE). Rx DI:PONIBLE 
Tx SURCHARG& t 6 E + A INT. Mn: 4ENTE 
CS 2 OO! TAMPON Tx VIDE 
SYNC /HUNT tt © Dco 


- REGISTRE DE LECYTURE (RR1). 
:D7:D6:0S:D4a:D3:D2:D1:D0: 


Flii DE CADRE (SDLC) : ü ü 

ERREUR CRC/CADRAGE : ü 

ERIIEUR SURCHARGE Rx ‘ 
ERREUR DE PARITE 


TOUT ENV: .€ 

CODE O Pr; IDUEL (SDLC) 
5: CODE 1 RE:IDUEL 
1 CODE 2 h«° IPUEL 


- REGISTRE DE LECTURE (RR2). 


:D07:06:05:D4:D3:D2:D1:D0: 


v7 PU 4 OÙ À SO + € à vo 
v6 CR 7 
vs  £ & v2 
va d ; V3 


CRR2 CONTIENT LE VECTEUR D'INTERRUPTION ECRIT DANS WR2 CANAL B SEULEMENT) 


NOTES: Rx »# RECEPTEUR 


Tx = EMETTEUR 
INT = INTERRUPTION 


== TABLEAU C = 


Exemple d'initialisation du canal A : (scrutation des E/S par polling) 


LD BC, OFC5SCH 
LD A, OEEH 
OUT (C), A 


; adresse du Latch 74LS273 : 
; FT ct FR du COM8116T = 153600 Hz 


LD BC, OFC7DH 
LD A, 18H 
OUT (C) , A 


; adresse de contrôle du canal A 
; WRO = remise à zéro des registres 


LD À,4 
OUT (C), A 
LD A, 47H 
OUT (C) , A 


; On pointe sur le registre WR4 


; cadence horloge + bits stop + parité 


LD AÀ,3 
OUT (C) , A 
LD A, 41H 
OUT (C),A 


;-on pointe sur le registre WR3 


; nombre de bits récepteur + validation réception 


LD À, 5 

OUT (C) , A 
LD A, OAAH 
OUT (C) , A 


; On pointe sur le registre WR5 
; nombre de bits émetteur + signaux DTR et RTS = 1 


LD À, 1 
OUT (C) , A 
LD A, 00 
OUT (C) , A 


; On pointe sur le registre WRI 


; désactivation du mode interrruption 


= Listing 1 == 
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tions d'erreur, le vecteur d'interruption 
et les signaux standards de communi- 
cation. 

Le principe de lecture des registres est 
analogue à une opération d'écriture (2 
octets). Par exécution d'une instruction 
d'entrée, le contenu du registre de lec- 
ture adressée peut être lu par le micro- 
processeur. (Voir tableau C). 


D PRINCIPE DE « 
PROGRAMMATION ET DE 
GESTION DE LA CARTE 


La gestion de la carte réside en trois 
parties : 

— l'initialisation 

— la réception 

— l'émission 


L'INITIALISATION 
DU CIRCUIT SIO. (Voir listing 1) 


Un certain nombre d'opérations de pro- 
grammation doivent être effectuées sys- 
tématiquement afin d'initialiser et de pa- 
ramétrer le SIO Z80 avant tout fonc- 
tionnement. La séquence d'initialisation 
minimale est la suivante : 

Le registre WRO contiendra : 

— la commande de remise à zéro. 

Le registre WR4 contiendra : 

—le facteur de division des signaux 
d'horloge 

— lc nombre de bits d'arrêt 

— le type de parité. 

Le registre WR3 contiendra : 

— le nombre de bits en réception 

- la validation en réception 

-— l'autovalidation. 

Le registre WRS contiendra : 

— lc nombre de bits en émission 

—la commande des signaux RTS et 
DTR 

— la validation en émission. 

Le registre WR2 contiendra : 

— le vecteur d'interruption canal B seule- 
ment (uniquement en fonctionnement 
interruption). 

Le registre WRI contiendra : 

— la validation en mode interruption. 
Les registres WR6 et WR7 ne sont pas 
programmés pour un fonctionnement 
en mode asynchrone. 

Remarque : La programmation du SIO 
pour tous les exemples et programmes 
suivants scra définie en mode asyn- 
chronc et les paramètres de communi- 
calion seront : 
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I 


Les deux connecteurs RS332 


Routine de réception 


INSIO: LD BC , OFC7DH ; adresse de contrôle du canal A 
LD A,5 ; On pointe sur le registre WRS 
OUT (C), A 
LD À ,OAAH 
OUT (C) , A 


; DTR et RTS = 1 (déblocage en réception) 


INSIOO:IN A , (C) 
BITO,A 
JR Z, INSIO0 


; lecture du registre de lecture RRO 

; test du bit O de RRO 

; Si le bit 0 = O on a pas reçu de caractère, on attend 

; On a reçu un Caractère, on inhibe les interrupuions CPC 
; on poinie sur le registre WR5 


; DTR et RTS = 0 , blocage en réception 
LD BC , OFCTCH ; adresse de donnée du canal A 

; lecture du caractère reçu 

; on autorise les interruptions du CPC 


; on met à zéro le bit 7 du caractère reçu (parité) 
; fin et retour de la routine , l'accumulateur A contient le caractère 


= Listing 2 == 


Routine d'émission 


(Prenons comme principe que le registre H contient le caractère à émettre) 


OUTSIO : 
WAITWR: 


LD BC , OFC7DH 
IN À , (C) 
AND 04 
IRZ , WAITWR 
LD À ,H 


; adresse de contrôle du canal A 

; lecture du registre RRO 

; On teste si le canal est prêt à émettre 
; Si bit 2 de RRO = 0 on attend 

; A=H= caractère 

LD BC , OFC7CH ; adresse de donnée du canal A 

OUT (C) , A ; écriture du caractère dans le canal 
RET ; fin et retour de la routine 


— Liting3 == 


— vitesse 9600 Bds 

— facteur des signaux d'horloge égal à 
16 

— 1 bit d'arrêt 

— parité paire 

— caractère de 7 bits pour Rx et Tx 

— inhibition des interrupuons. 


LECTURE D'UN CARACTERE 
RECU PAR LE SIO. 


(Voir listing 2) 


Remarque : le SIO dispose d'une pile in- 
terne (réservoir) incorporée de type 


Câble de raccordement de la carte au CPC 


lmplantation des composants 


FIFO (First In-First Out) de trois 
octets, ce qui permet la réception de 
trois caractères avant que ne se pose un 
problème de surcharge. L'affichage ou 
le traitement d'un caractère réceptionné 
pouvant demander un certain temps, il 
faut bloquer les signaux DTR et RTS à 
la suite de chaque lecture. 


ECRITURE D'UN CARACTERE A 
EMETTRE PAR LE SIO. 
(Voir listing 3) 


Les trois parties principales de gestion 
du SIO sont maintenant fixées, reste à 
les implanter dans un programme en 
vue d'une application spécifique. Nous 
vous proposerons dans un prochain 
numéro un programme d'émulation de 
terminal. 


D. BEGOC 
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4 REVUES POUR LES PASSIONNES 


CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles ! A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC”. 

Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux 
livres ! 


[ CPC AMSTRAD 11 numéros 180F 
O0 


6 numéros 105F 
O Abonnement essai 8 numéros 55F 
© AMSTAR 11 numéros 100F 
O PCompatibles Magazine 11 numéros 200F 
CO Arcades 11 numéros 200F 


NOM Prénom 
Adresse 


Code postal.  _ _…. ___.. \Vile 


Date —— Signature 
Je m'abonne à : 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Service Abonnement - BP 11 - 35170 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 


D ERREREERERREREEREEEREEREEEEEE 


PARTICIPEZ A CPC ! 


Remplissez soigneusement ce coupon et joignez-le à votre programme, sur cassette ou sur disquette. Envoyez le tout à : 


CPC 
La Haie de Pan 
35170 BRUZ 
Le programmeur : 
Nom. | Prénom; _  _  _  _-  ____________- Age : 


Adresse complète : 


Le programme : 
NOM: Catégorie : [] Jeu [] Utilitaire [] Educatif 


Taille : 2 Périphériques utilisés : 
Support : 
Compatibilité (testée) avec : [] 464 [ 664 Ü 6128 [] PCW 8256 

O PC 1512 [ PCW 8512 


RE —————Z—— oo 


Attestation sur l'honneur 
Je soussigné, ______________________, déclare être l’auteur du programme ci-joint et ne l'avoir jamais proposé 
à une autre revue. 


Le : 1 / à: 


Signature : 
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MIRAGE IMAGER version TURBO 
enfin le TRANSFERT et la SAUVEGARDE ULTRA-RAPIDES ! 


RECHARGEZ UN PROGRAMME DE 64 Ko EN 14 SECONDES ! 
APRES L'AVOIR TRANSFERE EN UNE VINGTAINE DE SECONDES 
avec la version TURBO du MIRAGE IMAGER 


LE PERIPHERIQUE QUI TRANSFERE et SAUVEGARDE 
100 % DES PROGRAMMES 


LE MIRAGE IMAGER TURBO 


CPC 6128 : 
seulement 500 FF 


Port et câble 6128 compris 


CPC 464/664 : 
seulement450 FF 


Port compris 


Spécifier si Schneider ou 6128 AZERTY “Nouvelle broche” S.V.P. 


MANUEL COMPLET de 3000 mots entièrement en Français 


Le MIRAGE IMAGER version TURBO est disponible maintenant. 
Chez nous, la RUPTURE DE STOCK N'EXISTE PAS. 


Ses caractéristiques : 


SAUVEGARDE 64 Ko SUR DISQUETTE EN UNE VINGTAINE DE SECONDES transterer/sauvegarder/recharger. 


RECHARGE UN PROGRAMME DE 64 Ko EN 14 SECONDES ! Ne Are 
TRANSFERT K7 / DISQUETTE ou DISQUETTE / CASSETTE et SAUVEGARDE K7 / K7 ou Ta leds lc lonedles qéiecienle par ordinateur: 


DISQUETTE / DISQUETTE de tout programme protégée ou non jusqu'à 128 Ko (64 Ko sur 464/664) 8 K RAM et 8 K ROM incorpores 


SAUVEGARDE K7 EN 3 VITESSES (normale, rapide et TURBO) Compresse afin d'utiliser un espace minimum sur disque ou cassette 

TOOLKIT incorporé qui affiche les adresses, INK, PEN et autres details des programmes Sauvegarde en un seul bloc (pratique pour archivage) 

et écrans, permettant un bidouillage acharne et intensif Compatible avec les ROMS et cartes d'extension et permet aussi de les invalider 

Grâce au TOOLKIT, contemplez instantanément les resultats des bidouillages effectues ! Pour usage personnel 

MODE 64 K ou 128 K avec les CPC 6128 Comporte un bus d'extension pour raccorder d'autres peripheriques 

Se branche en 2 secondes ! Stoppez un jeu à n'importe quel moment, sauvegardez et reprenez-le au même endroit 
Extrêmement simple à utiliser : gere par menus et l'on presse UN SEUL BOUTON pour TOUS les programmes transferes fonctionnent ! 


VENTE EXCLUSIVEMENT PAR CORRESPONDANTE - Envoyez vite votre commande (en Français) à : DUCHET COMPUTERS 
51, Saint-George Road - CHEPSTOW NP6 5LA - ANGLETERRE. Téléphone : +44.291.257.80 
ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le Monde entier 
REGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs - EUROCHEQUE en livres sterling (vous faites la conversion) 
ou CHEQUE BANCAIRE en livres sterling compensable en Angleterre (Votre banque fait la conversion) 


ou carte de crédit internationale VISA, EUROCARD, MASTERCARD, ACCESS ES À 


Rédiger les mandats, etc... à l’ordre de DUCHET Computers. © 
Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre où Didier au 44.291.257.80 de 8hà 19h. 


DUCHET COMPUTERS & SIREN SOFTWARE 


51 Saint-George Road - CHEPSTOW - NP6 5LA - ANGLETERRE. Tél. +44.291.257.80 


“EN EXCLUSIVITÉ : DU MATERIEL ET DES PROGICIELS SUPER CHOUETTES EN FRANÇAIS 
POUR AMSTRAD - SCHNEIDER 464/664/6128 


FAITES EXPLOSER EN STEREO LES EFFETS SONORES ET MUSICAUX 
DE VOS LOGICIELS AMSTRAD AVEC L’AMPLI STEREO 


SOUNDBLASTER 


(195.00 FF Port compris) 


SOUNDBLASTER, miracle de la technologie miniature moderne, se raccorde directement au moniteur et:à l’ordi- 
nateur. Tous les Câbles et prises sont fournis. Reliez vos enceintes Hi-Fi où autoradio (jusqu'à 40 watts par canal) 
directement au SOUNDBLASTER sans avoir à passer par votre chaîne Hi-Fi ! Chargez vos logiciels d'arcade favoris 
et faites trembler les murs ! Terrorisez votre entourage avec des effets sonores terribles ! L’ampli stéréo SOUND- 
BLASTER (10 Cm x 6 Cm x 2 cm) pèse 100 grammes. Il est livré prêt à fonctionner avec : câble et prise de raccord 
au moniteur, Câble et prise de raccord à l'ordinateur, cinq mêtres de câble pour enceintes, prise pour casque 
d'écoute, deux boutons de réglage volume et balance, et instructions complètes en français. 
SOUNDBLASTER ne vaut que 195.00 FF port compris. 

(Pour expédition hors Europe ajouter 20 FF S.V.P.). 
CADEAU GRATUIT ! A tout acheteur du SOUNDBLASTER nous offrons en cadeau un magnifique Casque d'écoute 
stéréo ultra-léger. 

Note : les enceintes Hi-Fi ne sont pas fournies avec SOUNDBLASTER. 


ENFIN ! UN PROGRAMMATEUR D’EPROM ULTRA RAPIDE 
POUR AMSTRAD CPC ! 


Se relie à l'ordinateur en un instant. Comporte un support à force d'insertion nulle pour travail soigné et rapide. 
Faites une Copie de sauvegarde de vos ROMS commerciales. Transférez vos programmes personnels Basic ou ma- 
Chine code, routines, RSX, Sur EPROM. Copie de ROM originale en RAM où sur disquette. Programme les EPROMS 8K 
où 16K à partir de RAM disquette Où K7. Programmation ültra-rapide : une FPROM de T6K est programmée en moins 
de 2 minutes et demi. L'interface PROGRAMMATEUR D'EPROM est livrée avec son logiciel utilitaire disquette 3” 
ou K7 (spécifiez S.V.P.) transférable sur EPROM. Instructions completes en français. 
L'interface PROGRAMMATEUR D'EPROM ne vaut que 550.00 FF (port compris) 
(Pour expédition hors Europe ajouter 25 FF S.V.P.). 


LOGICIELS UTILITAIRES EN FRANÇAIS : 


TÜURBOLOCKS la disquette utilitaire en Français pour transférer de K7 à disquette les programmes récents 
et nouveaux protégés par le NOUVEAU “Speedlock”. Transfert automatique et intégral en une opération, Extraordi- 
nairement facile à utiliser. 

TURBOLOCKS sur disquette 3” (464/664/6128).....................44444 eee 150.00 FF port compris. 
(Pour expédition hors Europe ajouter 10 FF S.V.P.). 


CASSELOCKS la Cassette utilitaire en français pour la sauvegarde K7/K7 des programmes récents et : 
nouveaux protégés par le NOUVEAU “Speedlock”. Enfantin à utiliser. CASSELOCKS sur K7 uniquement ne vaut 
que : 100.00 FF port compris. 

(Pour expédition hors Europe ajouter 10 FF S.V.P)). 


ADAPTATEUR périphériques AMSTRAD CPC vers SCHNEIDER et AZERTY “nouvelles broches”. Vous êtes 
l'heureux possesseur d’un nouvel AMSTRAD AZERTY où d'un SCHNEIDER. Félicitations ! Cependant, il ne vous est pas 
possible de lui raccorder les périphériques des AMSTRAD QWERTY car les broches sont différentes, Quel dommage ! 
procurez-vous notre cordon adaptateur et le tour est joué ! Vous pourrez maintenant connecter tous les péri- 
phériques/interfaces conçus pour “l’ancienne” broche AMSTRAD. 

Cordon ADAPTATEUR “nouvelle/ancienne” broche. ...................................... 120.00 FF port compris. 
(Pour expédition hors Europe ajouter 10 FF S.V.P.). 


VENTE EXCLUSIVEMENT PAR CORRESPONDANCE - Envoyez vite votre commande (en Français) à : DUCHET COMPUTERS 
51, Saint-George Road - CHEPSTOW NP6 5LA - ANGLETERRE. Téléphone : +44.291.257.80 
ENVOI IMMEDIAT LE JOUR MEME PAR AVION dans le Monde entier 
REGLEMENT PAR : 
MANDAT POSTE INTERNATIONAL en francs - EUROCHEQUE en livres sterling (vous faites la conversion) 
où CHEQUE BANCAIRE en livres sterling compensable en: Angleterre (votre banque fait la conversion) 


ou Carte de crédit internationale VISA, EUROCARD, MASTERCARD, ACCESS 


Rédiger les mandats, etc. à l’ordre de DUCHET Computers. 
Si vous êtes pressé, réservez votre commande EN PARLANT EN FRANÇAIS ! 
Téléphonez à Caroline, Jean-Pierre ou Didier au 44.291.257.80 de 8h à 19h. 


Les programmes en français sont Copyright DUCHET COMPUTERS & SIREN SOFTWARE. Leur diffusion commerciale même partielle sous quelque titre 
ou forme que ce soit et par qui que ce soit est formellement interdite. 


TCHERNMISLAND 


Comment jouer ? 


Vous pourrez jouer, à votre convenance, 
avec la manette de jeu ou au clavier. 
Vous disposez de trois robots télécom- 
mandés pour effectuer le travail, mais 
attention aux engins nettoyeurs que les 
radiations ont déréglés car ils tenteront 
d'irradier les intrus. 


Chargement : 


Pour faire tourner ce jeu, les programmes 
suivants devront être présents sur la dis- 
quette/cassette. 

— TCHERN 

— CENT.BIN (créé par le listing 2) 

— P1.BIN (créé par le listing 3) 

— P2.BIN (créé par le listing 4) 

— BASIC 

Les utilisateurs de cassettes devront res- 


oi 
| # x 
pecter cet ordre pour l'enregistrement. 


| à 


A 


Création des fichiers binaires 


Pas simple une opération de sauvetage sur une centrale Tapez le listing 2, faites RUN, puis, 
comme celle de TCHERNMISLAND. Le réacteur menace ec eoC eee tapez SAVE 
d’exploser alors que des caisses contenant des documents on AR SAVE PTT sn 
et du matériel de la plus haute importance se trouvent ee es 20000 oBe, tapant 
encore à l’intérieur de l’enceinte. Votre mission sera donc En raison de la taille de ce jeu, nous 


avons été dans l'obligation de le scinder 
d'évacuer la précieuse cargaison dans les plus brefs délais. en deux parties aussi trouverez-vous le 
chargeur de P2 (listing 4) et le pro- 
gramme ‘BASIC’ dans le prochain 


m Olivier GUTIERREZ numéro de CPC. 

189 3 JK< 
190 IF t$="N" THEN RESTORE 236: BORDER 4 ELSE RESTORE 38 ;JL<{ 

0:BORDER 2 
19 ‘TCHERNMISLAND PAR RAPHAEL ET OLIVIER PHEX 206 READ a:WHILE at>-1:READ b,c: INK a,b,c *AC 
GUTIERREZ 1987 216 READ a:WEND FD< 
28 ?1C* 228 ‘nb KE 
39 MODE 1:CALL #BCH2:LOCATE 5,5 #YD< 236 DATA 6,6,6 WF < 
4% PEN 1:PAPER 6 HE: 249 DATA 1,25,25 :1G< 
59 PRINT'Avez vous un moniteur couleur ?" 2GF< 256 DATA 2,8,8 THÉ 
68 WHILE t$i;"0" AND t$<2"N" 2VG< 266 DATA 3,15,15 HAE 
70 t$=UPPERS (INKEYS) 2YHE 27% DATA 5,7,7 2WK< 
84 WEND )RJ 284 DATA 6,26,2b ?EL< 
96 FOR 1=û TO 15:INK I,4:NEXT: BORDER @ ?1K£ 296 DATA 7,19,19 ?LM€ 
199 ” ?AB< 394 DATA 8,14,14 TD 
119 ‘chargement page de presentation et affichage #EC< 316 DATA 9,7,7 ?VE£ 
120 ‘ ?CD< 326 DATA 14,9,9 UF 
139 OPENOUT"H":MEMORY 8099:CLOSEOUT:LOAD"cent",8169  %LE< 330 DATA 11,16,16 ?WG< 
140 MODE 9:PAPER 6: CLS: ORIGIN 9,4,6,640, 0,32 2HF< 349 DATA 12,7,26 ?XH€ 
158 CLG 19:PAPER G:CALL 83006 AG< 356 DATA 13,26,7 ?1J 
168 ‘ 6H 364 DATA 14,10,19,-1 >PK< 
17 ‘choix nb/c +AJ< 370 ‘couleur #AL£ 
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389 DATA 6,4,6 
396 DATA 1,26, 26 
404 DATA 2,2,2 
416 DATA 3,11,11 
429 DATA 5,7,7 
419 DATA 6,11,1i 
446 DATA 7,23,23 
450 DATA 8,19,14 
468 DATA 9,15,15 
78 DATA 16,16,18 
48 DATA 11,15,15 
498 DATA 12,28,11 
209 DATA 13,11,20 
319 DATA 14,9,9,-1 
324 PAPER 6:FEN GiLOCATE 4,4: FRINT'TCHERNMISLAND" 
924 PAPER G:PEN 1 
349 LOAD" PI", 15660: LOAD" F2", 20064 


954 
566 ‘initialisation 
J7ÿ : 


989 RESTORE 646 

396 FOR 1=14964 TO 14969 
656 READ a$ 

bib POKE 1,VALC"R"4A#) 


624 NEXT 3MJE 
636 CALL 14960 2BEE 
o49 DATA 21,98,92,11,c8,32,01,fb #AL£ 
65% DATA G4,ed,b6,21,76,51,11,c4 HMS 


6bf DATA 37,61,48,0, ed, bé, 21,98 
674 DATA Za,61,2c,00,1i,0c,38,ed 
684 DATA b6,c9,21,c8,32,11,58,52 
694 DATA 41,fb,644,ed,bô,21,c4,37 
76% DATA 11,76,51,61,46,06, ed,b6 
719 DATA 21.,6c,38,11,96, Ja, 41,2c 
724 DATA 06,ed,bb,c3,c4,3a 

73% RUN" basic" #DLE 


16 G=shbebiF= TITLES GA WHILE ASF: FOR Az TD A+IS:READ C$:k= 
VAL MECS: SEGHE+65S T6 (SH: 32767): IF ASF THEN FÜKE A,k 

24 NEXT:READ Dé: T=VAL "RDS: IF TES THEN FRINT CHR$ (7): "Erre 
ur ligne";L:END ELSE L=L+5:HEND 

194 DATA JC, IC, 23, FC, FC, 123, BC, 3C,3C,39,FC,FC, 12, BC, 3C, 30, 4750 

185 DATA 2F,683,30,30,47,7C,56,56,06,FC,49,FC,FC,00,56,FC,4E18 

116 DATA FC,46,56,FC,FC, 00,56,FC, A9, FC, FC, 00,56, 56, 66,20, 1830 

115 DATA 30,2F,29,49,16,3C,3C,06,7C,FC,FC, 11,3C,3C,2F,7C, 1EBé 

129 DATA 43,16,3C,3C, 46, 7C,FC,FC, 11,30, 20,2F,70,03, 16,20, 244û 

125 DATA 3C,06,7C,FC,FC, 11,30, 30,2F,29,49,63, 16,30, 20,06, 2521 

139 DATA A9,FC,56,FC,56,FC,A9,FC,FC,00,56,FC,A9,FC,FC, 60, 2FFE 

135 DATA 56,FC,56,49,BC,3C,2C, 2F.03,FC,03,16,3C,3C,66,FC, 3644 

149 DATA FC, 16,BC,3C,3C,2F,49,63,07,61,30,3C,08,FC,FC, 16, 3BES 

145 DATA BC. 3C,30,2E,29,A0,07,03,41,3C,3C,66,FC,FC, 19,0, 4166 

154 DATA JC, 30,23€, 70, Dé, FC, FC, 04,BC,3C,3C,06,FC,FC, 14, EC, 4954 
155 DATA 3,30, 2E,69,E9,03,07, 00, 16,30, 2C, 66, 70, 56,FC, 56, 4E0A 


166 DATA A9,FC, A9,FC, FC, 06, 56, FC, 49, FC, A9, FC, 56, FC, 56, 30, 5800 
165 DATA 30, 2F,70,03,07,01, 16,30, 30,06, 70, FC, FC, @F, 30, 3C, SD4D 
176 DATA 2F,29,56,FC,FC, 09, BC, 3C, 30, 06, 7C, FC, FC, OF, 30, 3C, 428 
175 DATA 2F,7C,FC, FC, 01, 14,30, 30,06, 70, FC, FC, OF, 30, 30, 2F, 6ABA 
18 DATA 7C,FC,FC, O1, 16, 30, 3C, d6, 7C, FC, FC, OF, 30, 20, 2F, 70, 7129 
185 DATA FC, FC, 01, 16,30, 2,06, 7C, FC, FC, OF, 20, 30, 2F, 7C, FC, 7848 
196 DATA FC, 01,16,30,20,07,49,FC, A9, A9, 00,FC,FC, 00,56, FC, B03E 
195 DATA 56,FC, 56, FC, 5h, 49, FC, A9, BC, 30, 20, 2F, 29,03, FC, C3, 88D1 
200 DATA 96,30,23C,07,FC, FC, 0E, BC, 20, 30, 30,56, FC,E9, 96, 20, 9090 
295 DATA 30,07,FC,FC, GE, BC, 30, 20, 30,FC, FC, 01,96, 30, 30, 07,9718 
219 DATA FC, FO,GE, BC, 30, 30, 30,FC,FC, O1, 16,20, 20,07, FC, FC, 9F0B 
215 DATA DE, EC, 30, 20, 20,FC, FC, 01, 16, 30, 30,07, FC, FC, DE, BC, ASCA 
224 DATA 2C,20,30,FC,FC, 01, 16,30, 20,07,FC, FC GE, EC, 30, 3C, ACTA 
225 DATA 29,FC,FC, 01, 16, 30, 30,07, 70, 56, FC, 56, 56, 00, FC, 56, B2C4 
226 DATA FC, 56,FC, 56,FC, 56, 56, 00, FC, 56, 30, 30, 31,FC, FC, 01, BBU4 
235 DATA 16,30,230,07, 70, FC, FC, @D, 30,30, 31,FC,FC, 01, 16, 3C,C16E 
240 DATA 20,07,7C,FC,FC,OD, 20, 20, 31,FC,FC, 01, 16,20, 30, 07,C709 
245 DATA 7C,FC,FC,@D, 30, 20, 31,FC,FC, 01, 16,30, 3C,07, 70, FC, CEZ9 
254 DATA FC,0D, 20,20, 31,FC, FC, 01, 16,30, 30,07, 7C,FC, FC, OD, D4FA 
255 DATA 30, 3C,07,03, 30, 30, 27,FC, FC, O1, 16,230, 3C,07,7C,FC,DA?1 
260 DATA FC, OD, 30, 30, 07,03, 30, 30, 27,FC, FC, 01, 16, 3C, 30, 07, DED9 
265 DATA 7C,FC,FC,@D, 30, 20,07,03, 30, 30, 27,FC,FC, 01, 16, 3C,E4C6 
278 DATA 20,08, A9,FC, A9, 49,00,FC, 56,FC, 56,FC, 56, 9, A9, 00, ED49 
275 DATA FC, A9, BC, 20, 30, 07,03, 30, 30, 27, FC, FC, 01, 16,30, 3C,F352 
284 DATA 08,FC,FC, AC, EC, 30,30, 07,03, 30, 20, 27,FC,FC, 01, 16,F944 
285 DATA 3C,3C,08,FC, FC, AC, BC, 30, 30, 07,02,30, 20, 27,FC,FC,FFAZ 
290 DATA 01,16,20,3C,08,FC,FC, GC, RC, 30, 30,07, 03, 30, 30, 27,041E 
295 DATA FC, FC, 91,16,30,3C,08,FC,FC, OC, BC, SC, 30, 07,03, 30, 0028 
360 DATA 20,27,FC,FC, 01,16, 30, 3C,0B,FC, FC, GC, EC, 20, 30,07, 1059 
395 DATA 03,20, 30,27,FC, FC, 01, 14,30, 30,08, A9,FC, A9, A9, 00, 1481 
319 DATA FC, 56,FC,56,FC, 56,9, A9, 00, FC, A9, BC, 2C, 20,07, 03, 1EAC 
315 DATA 30,30, 18, 16,20, 30,09, FC, FC, 01, 16,30, 3C, 08, FC, FC, 245D 
329 DATA On, BC, 30, 2C,07,03,20, 20, A, 70,03, 30, 30,09, FC, FC, 2931 
325 DATA 01,16,30,23C,08,FC, FC, DC, BC, 3C, 30, 07,03, 230, 30, LA, 2D9C 
120 DATA 29,9, 16,20, 20, 08,FC, FC, 01,16, 30, 3C, O8, FC, FC, OC, 2397 
335 DATA EC, 3C,30,07,03, 30,30, 1A, 29, A9, 16,30, 3C,08,FC, FC, 38C7 
340 DATA 01,16,3C, 2,08, FC, FC, OC, BC, 30, 30, 07,03, 30, 20, 1A, 3D32 
345 DATA 03,03,01,23C,3C,0B,FC, FC, 91, 16,30, 3C,68,FC,FC, GC, 4240 
350 DATA BC, 2C,20,07,03, 30, 30, LA, FC, FC, 09, BC, 20, 30, 06, FC, 4B4C 
355 DATA FC, 01,16,30, 20,08, A9,FC, A9, 49, 00,FC, 56, FC, 56, FC, 5076 
360 DATA 56,49, A7,00,FC, A9, BC, 30, 30,07, 03,30, 30, 1A, A9, 03, 563F 
365 DATA 16,20, 30,08,FC, FC, O1, 16,30, 30,07, 7C,FC, FC, 06, 03, SEDA 
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378 
375 
164 
385 
394 
295 
460 
485 
416 
415 
428 

23 
454 
435 
438 
445 
454 
455 
460 
ete) 
470 
475 
45ù 
485 
494 
395 
jé 
545 
519 
515 
524 
525 
354 
ste] 
544 
345 
954 
395 
S6Û 
969 
574 
375 
584 
585 
594 
595 
EURE) 
£ÈS 
bit 
6i5 
b2ÿ 
LAS 


Did 


E38 
ir 


[hs] 
£46 


3 DATA FC, 
ë DATA Gé, 18,30, 3C, D, 70, FC, 16,30, 30,08, FC, FC, 61,18,3C,CF2F 


DATA FC, FC, GA, 30, 2C,07,03, 30,30, 1A, 56,FC, BC, 30, 3C, 08, 617E 
DATA FC,FC, 1,18, 20, 20,07, 70, FC, FC, 00,03,FC, FC, DA, 20, 6BC1 
DATA 20,07,03, 20,20, LA, FO, FE, 00, lé, 30, 30,08, FC, FC, 01, 6E29 
DATA 16,30,30,07, 70, FC, FC. 08, 03,FC, FC, 6, BC, 30, 20, 09, 745E 
DATA FC, 30, 20,07,05, 20,30, LA FC FE, 09, 16, 30, 30,08, FC, 79FB 
7,7C,FC,FC,9ù, 83, FC, FC, 05, BC, 70, 81e 
DATA FC,FC, 90,20, 20, 0B,03, 20, 30, 14,02,E9, 16,30, 30 
DATA FC, FC, 61, 16,20, 20,07, 70, FC, FC. 06,03,FC,FC, 05, 7C, 8043 
DATA FC, FC, 42, 3 3 30, 30,08, 929F 
DATA FC,FE, 01, 18,20, 20,07, 70, FC, FC, dû, 03, FC,FC, 04, BC, SAÎC 
DATA A9, 49,07, BC, 20, 20, 06,07, 30,20, LA, 70 FE, Le, 20, 20, 9746 
DATA BFC, FC, O1, 16,20, 20,07, 7C,FC, FC, 09,03,FC,FC, 04, A64F 
DATA 7C,FC,FE, 04,20, 20, 06,03, 30, 20, LA, 7C, FC, 16, 3, 20, ABEQ 
DATA BFC, FC, O1, 16,20, 20,07, 7C.FC. FC. 0,03, FC,FC, 03, B2E8 
DATA BC, A9, 56, 56,00, A7,F0, 56,07, EC, 30, 2C,05,03, 20, 2C, BBAE 
DATA 1A,7C,FE, 16,20, 20,08,FC, FC, 01,16, 
DATA FC,N3,A9,FC,56,FC, 56, 70, FC, FE, db, 30, 20,05, 03, 30, CSS 
DATA 20.14, 7C,FC, 16,30, 20,08, FC,FC. 01, 16,30, 30,07, FC, CEAZ 
DATA FC,61,03,F0,FC, 02, BC, FC, FC, 07, BC, 30, 20,04, 03, 30, D2CF 
DATA 2C, LA, 70, FC, 16,30, 30,08, FC, FE, 01, 16,30, 20,97, FC, DEBD 
DATA FC, 61,03,FC,FC, 02, BC, A9, A9,00,FC, 56, 9,FC, 56, A9, ELBE 
DATA A9, 00, BC, 20, 20,04,87, 20,30, A, 7C,FC, 16,30, 30, 06,E63F 
DATA FC, FC, 01, 16,20, 20, 07,FE, FCI, 03,FC,FC, 02, 7C. FC, EEE 
DATA FC, 08,20, 20, 04,03, 20, 20, LA, 7C, FC, 16,30, 3C,08, FC, F3SA 
DATA FC, 01, 16,3C 


DATA FC,61,16,2C, 

DATA 49, BC, IC, 30,67 
DATA FC, 41,16,3C,3 
DATA 


3,20, 20, 1,70, FC, 16,20, 30,08, FC, ADBE 
FO FC 01,03, F0, FC, O1, 70, 56, 9, 1496 
30, 30, 1D6C 
DATA 1A,7C.FC, 16, 30, 20,08, FC, FC, 1, 16,3 7,49, FC, 2307 
DATA A9,07,56,FC,BC.FC.FC GB, BC, 3, 20, 3C, LA, ZA4F 
DATA 70, FC, 16,20, 20,08, FC, FC 01, 16,30, 30,06, 7C, FE, FC, 21SE 
DATA 01,02,FC,FC, 09, BC, FC, FC, DB, EC, 20, 30, 02,03, 20, 30, 37CA 
DATA 1A, 70, FC, 16,30, 20,08, FC, FC, 01, 16,20, 20406, CFE, 3DF7 
DATA FC, 01,03,FC, FC 00, EC, FC, FC, OB, BC, 30, 20, 02,02, 3C,4523 
DATA 30, 1A,7C,FC, 16, 20, 30,08, FC, FC 01, 16,3 
DATA FC,FC,01,07,FC, FC, 0, 7, FC, FO GC, 2 
DATA 3C,1A,7C,FC, 16, 20, 20,08, FC, FC 01, 16,20, 30,04, 7C, S77A 
DATA FO,FC,01,03,FC, FC 0, 70, 56,FC, 56, FC, 56,FC, A9, FC, 135 
DATA FC, 06,56, F0, 56, F0, 56, 2, 30.02, 03, 30, IC, IA, 7C, FC, 6782 
DATA 30,06, 7C,FC, FC, 01,43, 6D4D 
DATA 03,20, 20, 1,70, FC, 7440 
DATA 16,20, 2C,0B,FE, FC, 1, Lô, 0, 30, M6, 7C,FC, FC, 01,07, 79E7 
DATA 70, FC FC, QC, 30, 30,02, 03,30, 30, 1A, 7C,FC,B0EL 
DATA 16,20, 2C,0B,FC,FE, 01, 16,30, 30, 06, 70, FC, FC. 01,03, 8681 
DATA 07,30, 20, 1A, 70, FC, 16, 80%6 
DATA 20, 20,08,FC,FC, 01, la, 20, 30,06, 70, FC, FC, 01,03, FC,9417 
DATA BC,FC, FC, OD, BC, 20, 20 MO 20, 30, LA 7C,FE, 16, 30, PALC 
DATA 20,08,FC, FC, 1,16, 20, 20, da, 70, 56,FC, 56,03,FC, BC, 4110 
DATA FC.FCOD,BC, 20, 20, 01,03, 3€ SF2 
DATA FC, 14,30, 30,08, FC, FC, 1, 16,2 
DATA FC, BC, A9, FC A9, FC, AG,FC, FC 
DATA 49,FC, A9, EC, 30, 0. 01,03, 30 : 
DATA FC, 16,20, 2C,08,FC, FC. 01,16, 20,20. 06,FC, FC, 0 


C,8E,30,2C,01,56,FC, FC, 06,47,63,3C, IC, CAS 


DATA 30, 66,FC, FC, 02,03,FC,7C, FC, FC GE, IC, 3C, 00, FC, FC, D75C 


80 


bb DATA 02,43,03,3C, 30, 06, 16, 30, 20, OD, 7C, FC, 16,30, 3C, 01, DAC4 
665 DATA FC,FC,06,03,07,04,FC, FC, 00, 16,20, 3C,06,FC,FC, 02,140 
&76 DATA 63,FC,7C,FC,FC, dE, 3C, 3C, 00,FC,FC,02,43,03,3C,3C,E7FD 
875 DATA 06, 18,30, 30, 00, 70, BC, $C, 30, 00, FC, FC, 02,03, 03, 04,EC52 
Bo DATA FC, FC, 09, 18,30, 30,06, FC. FC, 02,03,FC, 70, FC, FC, dE, F459 
685 DATA 3C,3C,06,FC,FC, 02,43,03, 20,30, 06, 16,30, 3C,0D, 7C,F8A6 
é9 DATA BC,FC,FC, 04,07,03,04,FC,FC, 06, 16,30, 30,06, FC, FC, FFEC 
695 DATA 02,03,FC, 7C,FC, FC, DE, 20, 30, 00,FC,FC, 02, 43,03, 3C, 0663 
799 DATA 30,06, 16,30, 3C, GD, 7C, BC, FC,FC,04,03,03,04,FC,FC, C7 
795 DATA 04,16,23C,3C,G6,FC,FC,02,03,FC, 7C,FC, FC, DE, 20, 3C, 12FD 
716 DATA 0,FC,FC,02,03,03,00, 30, 30,06, 1,30, 2C, 6D, 7C, BC, 174E 
715 DATA FC,FC,02,C3,C3,06,FC,FC, 00, 16,30, 3C,06,FC,FC, 02, 1F5A 
726 DATA 03,FC, 70, 56,FC, 56,FC, A9, FC, FC, 06, A9,FC, FC, 09, A9, 2964 
725 DATA FC, FC, 00,6,FC, 56,30, 3C, 09, FC, FC, 02,07, 47, üù, 30, 2FEB 
736 DATA 20,06, 16,30, 3C, GD, 7C, BC, FC, FC, 00,C3,C3,08,FC,FC, 374 
735 DATA 66,16,20, 30, 6,FC,FC,02,03,FC,7C,FC, FC. GE, 3C, 30, 3DD2 
746 DATA 93,FC,07,03,06, 30,20, de, 16, 20, 3C, 0D, 7C, EC, CA, C3, 42AE 
745 DATA 07,D6,43,C3,FC,FC, 40, 16,30, 20, G6,FC,FC, 42,03, 30, 4956 
759 DATA FC,FC,9F,03,07,02,16,FC, 07,03, 40,30, 20,06, 16, 30, 4040 
755 DATA 3C,4D,7C,BC,C3,C3,0,FC, FC, dô, 16,30, 2C,06,FC, FC, 54E2 
766 DATA 62,07,FC,FC, 16,6 02,16,2C,20,09,16,2C,2C, 
765 DATA 7C,BC,CZ,C3,0A,FC,FC, 09, 16,30, 3C,0,FC,FC, O2, € 
778 DATA FC,FC, 19,BC,56,FC, FC, 04, A9,03,03,06, 16,30, 30, 02, 65CF 
775 DATA 16,30, 30, 0D, 70, BC,C3,C3,02,FC,FC, 09,03, A9,FC, FC, 6DC6 
784 DATA D1,03,FC, FC, M0, 16,30, 30, M6, FC, 56, A9,FE, 03,FC, A9, 74F5 
785 DATA 49,41,56,A9,03,FC, A9,03,03,0û,FC, A9,03,FC, 03, A9, 7EDC 
796 DATA A9, 00,0, 56,FC,FC, 04, A9, 03,07, 00, 16,30, 30,62, 16, BGAB 
795 DATA 3C,16,3C,3 dû, FC, FC, 02,03,49,FC, 87DD 
806 DATA FC, dà,A9,42,FC,FC,06, 16,30, 30,05, 7C,FC,FC, 02,03, BEB9 
805 DATA 3C,03,03,0F, 16,56,FC, FC, 94, 49,03,0 

g1é DATA 02,16,3C, 16,30, 3C,06,FC, FC, 08,03,03,02,BC,FC, FC, 9B1E 
815 DATA 94,43,FC,FC,00,03,03,01,FC,FC, 00, 16,30, 30,05, 7C, 9D2B 
826 DATA FC, FC, 92,03,BC,03,03,0F, Lé,56,FC,FC, 04, 9,03, 07, ATAD 
825 DATA 46,56,FC,FC, 09,56, 56,03, 3C, 30, 04,7C,FC, FC, 01,03, ABFE 
836 DATA 93,02,BC,FC,FC,04,56,03,FC, A9, 43,03, 00,FC, FE, 00, AFE7 
835 DATA 16,30, 20,05, 70, FC, FC, 02,03,FC,29,03,03,0E,29,56,B47E 
849 DATA FC, FC,06,A9,07,FC, FC, 09, A9,03,03,00,56,FC,FC, 06, EC14 
845 DATA A9,49,03,3C,3C,04,7C,FC,FC, 00,C3,C3,63, BC, FC, FC,C496 
854 DATA 42,02,07,00,56,03,A9,FC, FC, 43, 18,30, 20,05, 70, FC, C9A6 
55 DATA FC.02,03,FC,29,03,03, 0€, 29,58,FC, FC, Gà, A9, 03, 07, CFOA 
Béb DATA 49,16,B0,70, 16,20, té, 30, 18, 30, 20,04, 7C,FC, C3, C3, D48C 
865 DATA 44,BC,FC,FC, 09,03,56,FC,FC, 06,56, 03,49, A9,01,FC, DC3D 
878 DATA FC, 01,16,30,2C, 81 ,FC, A9, 03,03, 00, 16,FC,FC, 02,03,E187 
875 DATA FC,29,03,07,0€,29,56,FC, FC, 04, 49,63,03,06, 16, EC, E6BC 
886 DATA 70, BC, 20. BC, 20, BC, 3C, 20, 04,69,03,C3,05, BC, 03,54, ED67 
885 DATA FC,FC,02,56,FC, FC, 42,03,FC,FC, 0, 16,30, 20,01,FC,F529 
896 DATA A9,03,07,00, 16,230, 20,02, 03,20,29,07,03,0€,29,56,F773 
895 DATA FC, FC, 04,49,03,03, 00,56, FC,FC, 00,56,56, 43,230, 3C,FD93 
J6û DATA 64,69,C3,C3,05, BC, FC. FC, 04,56,FC, A9, 03,FC,43,FC, 6630 
985 DATA FC,00,16,230,3C,01,FC,49,03,FC,FC, 02,49,03,07,01,0C19 
916 DATA 29,03,07,0E,29,56,FC, FC, 04,49,03,07,00,56,FC, FC, LICE 
915 DATA 09,A7,49,07,20,3C,04,69,C3,FC,FC,00,02,56,FC, 03, 181E 
926 DATA BC,FC,FC,04,56,FC,FC, 06, 93,56,FC,FC, 01,16, 30,30, 2061 
925 DATA @1,FC,A9,03,FC, FC, 02, 49,03,03,01,29,03,03,0€, 29, 74BA 
928 DATA S6.FC,FC.04,49,03,FC, FC, 42,56, 56,03, 30, 20,04, 70, 2859 
935 DATA FC, FC, 1,56, 56, 00, 49,03,BC,FC,FC,01,03,03,02, A9,3210 
949 DATA FC,FC,04,16,20,20,01,FC, A9,03,FC,FC, 02, A9,07,03, 3BEC 
945 DATA 61,29,03,03,0€,FC, 49,03, 56, BC, FC, BC,FC, 9,03, 02, 3F47 


Es 


956 DATA ôù, 16, BC, 7C, BC, 30, RC, AC, RC, 30, 30,84, CFE, FC, OÙ, 4631 

955 DATA 03,56, 56,00, FC, FC, 00, BC, 03, 03, 00,56, FC, FC, 81,07, 4BEC 

968 DATA A9,FC, A7, FC, 83, FC, FC, à, 14, 20, SC, 81,FCA9, OT, FC, Sdéd 

965 DATA FC, 2, A9,83, 03, 01,29, 03,03, 0E, FC, 9,83, 6, BC, FC, 5405 

978 DATA BC, FC, A7, 03, 03,00, 16, BC, 7C, 16,20, 18, 30, 16, 20, 30, SEEC 

975 DATA 04,29,56,FC, FC, 00,56, FC, FC. 08, A9, RC, FC, FC, 64,03, 6719 

980 DATA A9,A9,81,56,03, FC, FC, D, 16,30, 20, 81,FD, 49,07, FC, éDFO 

985 DATA FC, 82, A9,83, 03,81,69, 43,43, 00,83, 43,C3,03,43,C3,731F 

996 DATA C3,00, 83,43, C3, 83,C3, 43,43, 08,FC, A9, 63,56, FC,FC, A2D 

995 DATA 02,49,03,83, 00, 5b, FC, FC, Où, A9, A9, 03, 30, 30,04, 70, 7F79 

1908 DATA FC, FC, 1,56,FC, 56,49, BC, FC, FC, 04, 56,FC, FC, 85, 16, 88E4 
1695 DATA 30,30, 01,FC, A9, 83,FC, FC, 02, A7, 83,03, 01, 16,07,03, BDCB 
1ô18 DATA ëD,56, FC, A9, 83,56,FC, FC, 82, A9,03, 88, 00, 56,FD,FC, 9523 
1815 DATA 00,56, 56, 83, 3C, 30,04, 7C, FC, A9, 83,03, 00,56, FC, FC, JACZ 
1ô20 DATA 0ù,BC,FC,FC,81,A9, A9, 81,56, 83, A9, 56,83, A9, FC, FC, AZC7 
1925 DATA 66, 16,30, 30, 01,FC,A9, 03, FC, FC, 02, A9, 03, 03,008, 16, A7ED 
1836 DATA. 8B, 8B, d6, DA, BB, BE, 6, DE, A9, 03, 56, FC, FC, O2, A9, 03, AFSS 
1935 DATA 03,00, 56,FC, FC, Où, A9, A9, 83, 30, 30,04, 29,03,FC,FC, BS9E 
1040 DATA 00,83, 56,FC, A9, BC, FC, 03,83, 00,56, FC, FC, 06, 56,FC, BCF7 
1845 DATA FC, 05, 16, 30, 3C,01,FC, A9, 03,FC, FC, 02,A9, 03,03, 00, C2DE 
1950 DATA 16,47,47, 08,E5,47,E5,47,E5, 47, 47,02,E5,47,E5,47,C9A1 
1855 DATA E5,47,55, 49,03, 56,FC,FD, 02, A9, 03,03,00,56,FC,FC,DI1C 
1960 DATA 00,56, 56, 83, 3C, 30,4, 7C, FC, FC, 01,6, FC, FC, 1, BC, D7C7 
1865 DATA Sb,FC, FC, 03,03, 03,0, A9, 56, 03, A9, FC, FC, 08, 16, 30, DE13 
1076 DATA 3C,61,FC,A9,03,FC,FC, 02, A9, 03, 03, 06, 16, BB, BB, 06, E3D3 
1975 DATA DA, 8B, BB, d6, DE, A7, 03, 56, FC, FC, 22, A9,83,03, 00, 56, EAGB 
1886 DATA FC,FE, 00, A9, A9, 83,30, 2C, 04, 70,03, 56, FC, 56,FC, FC, F290 
1885 DATA O1,BC,FC,FC, 01,A9,56, 03,03, 01,49, 6, 03, A9,FC,FC.F9EF 
1896 DATA 08,16, 30, 3C,01,FE, A9, 03, FC, FC, 02, A7, 07, 07,00, 16,FEES 
1895 DATA 47,47,00,E5,47,E5,47,E5, 47,47,02,E5,47,E5,47,E5,087D 
1109 DATA 47,56,A9,03,56,FC,FC, 02, A9, 03, FC, FC, 62,56, 56, 07, 0D6B 
1185 DATA 30, 3,04, 29, FC, FC, O1, 07, 56,03, 03, 09, BC, FC, A9, A3, 120C 
1116 DATA FC,FC, Ô1,03,03,00, 47,56, 03,FC, FC, 01, 16, 20, 3,01, 1855 
1115 DATA FC, A9, 03,FC, FC, 22, A9, 83,03, Où, 16, 8B, 8B, d6, DA, BB, 1F3D 
1126 DATA 8B, 6, DE, A9,03,56, BC, FC, BC, FC, A7, 83,03,00, 56, FC, 271F 
1125 DATA FC, 66, A9, 9,03, 30, 30, 04, 70, A9, 56, FC, 03, 56,05, 56, 2015 
1136 DATA BC,G3,FC,FC,83,56,FC, FC, 05, 16, 3C, 30, 01 ,FC, A9, 07, 3459 
1135 DATA FC, FC, 02, A9, 03,03, 00, 16, 47,47, 00,5, 47,E5,47,E5S, SAES 
1146 DATA 47,47,02,E5,47,E5,47,E5,47,56, A9, 03,56, BC, FC, BC, 4203 
1145 DATA FC, A9, 63, 03, 00, 56, 70, 70, 00, 546, 56, 03, 30, 30,04, 29,4710 
1158 DATA FC, FC, 81,56, FC, FC, 01, BC, FC, FC, 04,56, FC,FC, 05, BC, 511F 
1155 DATA 3C,30,01,FC,A9,03,FC, FC, 02, A9, 03, 07,01, 29,8B, DA, 5778 
1166 DATA 8B, DA, BB, BB, 01, DA, BB, BE, 01, DA, 8E, DA, BB, BE, 06, FC, 6ûté 
1165 DATA A9, 83,56, FC, FC, 02,9, 03, 03, 00,56, 70, 70,00, A9, A9, 6681 
1176 DATA 03,20, 30, 84, 7C,FC, A9, FC, 03, 03,00, 56, 56, 00, BC, FC, 4C87 
1175 DATA FC,O1,A9,FC,FC, 6, 03, 03, 02, A9, FC, FC, 01, BC, 30, 3C, 7407 
1188 DATA @1,FC, A7, 83,FC, FD, 82, A9, 83,03, 01, 60, 47,47,03,E5, 7419 
1185 DATA 47,47,02,E5,47, 47,02, 07,FC, A9, 83,56, FC, FC, 62, A9, BÔEL 
1198 DATA 03,03, 00, 56,FC, FC, 0ù, 56, 56,03, 20, 3, 01, 2D, LE, 30, B4E9 
1195 DATA 7C,FC, 83,FC, 83, 83,02, BC,FC, FC, 00, A9, A9, 00, FC, FC, EDéé 
1200 DATA 09,83, 03, 60, 56, 03,03, 01,FC, FC, 09, BC, 30, 20,1 ,FC, 91F2 
1205 DATA 49,83, FC, FC, 02, A9, 03, 03, 01, 29, BE, DA, BB, DA, BE, DA, 9948 
1218 DATA BB, DA, 8E, DA, BE, DA, BE, DA, BB, 8F, SE, A9, 07, 56,FC; FC, A3A6 
1215 DATA 02,A9,63, 03,00, 5b,FC, FC, 00, A7, A9, 03, FC, FC, 1, 0F, AAGZ 
1226 DATA 5E, FC, FC, 68,9, 56, 03, 03,00, 56, FC, FC, 00,03, A9, FC, B15B 
1225 DATA FC, 26,56, 56, 00, FC, FC, 00,03, A9, FC, FC, 00, 49,56, FC, B99A 
1236 DATA 56,49,56, 56, 00,FC, FC, 01, 6D, 47, 47, àD, 0F,FC, A7, OS, BFFD 
1235 DATA 56,30, 7C, 30, 7C, A7, 03, FC, FC, D, 49,03, 56, 56,03, 30, CSFE 


1249 DATA 2C,01,0F,0F, 00,30, 20, 02, 2D, 2D, 00, 0F, IC, 30,00, 70, CBSé 
1245 DATA FC,FC, 1E, 29,8F,DA, BB, DA, BE, DA, BB, DA, BB, DA, BE, DA, D2CE 
1258 DATA 88, DA, BF, 0F, BC, BC, 00, 16,56, 30, 70, 30, 7C. 9,03, 67, D8D4 
1255 DATA 06,56, A9,FC,FC,04, 30,30, 01, AD,0F, 20, 3C, 02,6F,0F, DD9C 
1260 DATA 00, AD,0F, 30, 7C, A9, FD, 56, FC, FO, 13,9, FC FC, 03, 07,576 
1265 DATA 4F,E5,47,E5,47,47,04,E5,47,E5,47,0F, FC, FC, 00,63, ECCA 
1278 DATA 03,01, 70, 30, 7C,A9,03,03, 00, 56, A9, FC, 03, 03,06, 56,F108 
1275 DATA 03,03,00, 20,30, 2D,0F, 1E, 2D, 30, 30, Où, 20, 0F,GF. ù,F2Ci 
1288 DATA SEOF, LE, 70, A9, FC, 56,FC, FC, 05,07, FC, FC, 89, AD, FC, FE7S 
1285 DATA FC, 02,0F,5E,FC, FC, 00, A9, 03, 03, 00,07, 08, BE, BB, 01, OÜBE 
1298 DATA SA, BB, DA, BE, DA, BB, BE, 02,8F,5E, FC. FE, d, 3, 07,01, 07Eû 
1295 DATA 70, 3C, 70, A9, de, 9, FC, 83, 9,56, 03,9, 0F,O07E 
1300 DATA 1E0F,0F 02, 1E, 30, 2D, AD, AD, O1,0F, SC,F, 56,47, FC, 120D 
1395 DATA FC, 64,E, AD, AD,0û,FC, FC, dù, AD, FC, SE, AD, SE, 0F, SE, 1BÈC 
1318 DATA OF, FC, AD,OF, OF, 00, FC, FC, O0, A9, FD, FE, 00, 6F,4F, AS, 227E 
115 DATA 47,E5,0F,47,47,02,4F,E5,47,E5,0F, OF, Gù,FC, FC, dù, 28EF 
1226 DATA 03,03,01, 70, 20,70, A7, 03,03, 00, 56, A7,FE. GS, 03,00, ZCAA 
1325 DATA 96,03,03,00,5E,0F,0F, 00, SE, OF, SE, ÔF, 2C,0F, AD, SE, 2FB2 
1336 DATA OF, SE, 1E, FC, 56,49, FC, FC, 03,E, AD, DF, FC, SE, OF, AD, 3783 
1335 DATA SE, SE, OÙ, OF, OF, 01, AD,0F,SE, FC, OF, 5E, FC, FC, 60, A9, 3D62 
1340 DATA FC, AD, OF, 0F, 01,88, BF,0F, GB, 54, BE, DA, GF, BB, BE, 01, 4343 
1345 DATA 0F,5E,5E, 00, FC, 03,03, 01,70, 30, 7C. 49,07, 83,56, A9, 47F7 
13598 DATA FC, 03,03, 00,56, 03,07, 00, 0F, AD,0F,0F, 00, AD,FC,üF, 4BE7 
1355 DATA 3C,0F,5E,E, 00, 0F,0F,O1,FE, 56, 49, FC, FC, 02, ADF, SIBE 
1368 DATA AD, 0F,0F, 00, AD, OF, 07,04, SE, 0F, 5€, SE, 00, FC, AD, SE, 5688 
1365 DATA FC, FC, 00,49, FC, F,07,0F,0F, 00, 4F, AS, OF, 0F,01,47,5BE3 
1378 DATA 07,0F,0F,00,47,E5,0F,0F, 01,FC, 03,03, 01,70, 30, ZE, 3F54 
1375 DATA 49,0F,08,56, A9, FC, 56, FC, 56, 56, 00, FC, FC, 14,0F, AD, 66DE 
1380 DATA OF, 5€, AD, SE, F,FC, FC, 00, AD, SE, AD, ÔF, GF. dd, AD, GF, CEF 
1385 DATA FC, AD,FC, FC, Où, AD, AD, 60, SE, AD, AD, 98, FE, GF,0F Où, 74EC 
1390 DATA AD, 5E,0F, OF, 00, FC, OF, OF, 00, AD, FC GP, GP. 04 FE, 7505 
1395 DATA FC, FC, O1,5E,0F,9F, 00,5E, AD, FC, FC, d4, GP, dr ,9F, Où, BODE 
1406 DATA 00, 00,00, OÙ, 00, 00, 00, 00, 00, 00, 06, 00, 00, 09,0, 00, BÔGE 
1485 DATA OÙ, 00, DO, Où, 00, 00, 0, DO, 0, 06, Où, 00, ZE, 90,32, 76, 8144 
1418 DATA 39,21,30,EA, DD, 21,4, 1F, DD, 7E, 00, 77, DD, 23,CD, 40, BE4F 
1415 DATA 39,CD,5B, 30, DD, 7E,06, DD, BE, FF, 77, 28, EF, DD, 23, DD, 912F 
1429 DATA 46,00, AF, BB, 28, 00, CD, 46, 20, CD,5B, 36, DD, 7E, FF, 77, 9876 
1425 DATA 18,F4,DD, 23, CD, 40, 30,CD,5B, 30, 18, CC, 11, DF,E6, EP, AGE4 
1439 DATA ED,52,EB, C9, D1,C9, 7E, DD, 77,00, DD,E5,E1. 11,08, dû, AFE 
1435 DATA ED, 52, 22,FE, 3F,D1,09, 00, 23,34, 76, 30, 2D,FE, 00, 22, BoAG 
1ä4û DATA 76,39, C0, 11,50,00,ED, 52, CD, 26, BC, 2E,50, 32,76, 30, Bacl 
1445 DATA C9, 00,01,01,09,01,21,8B, 2D,CD,FS, 3A,64, 20, 3€, 1ü, BAE9 
1450 DATA 96, 20,F6, DD, 21,8F,30,CD,FE, JA, C9, 48, 11,00, 08,00, C175 


18 ASRGIAB: FE Gé: LE LOG: NHILE AL2F: FOR AA TD AHIS:READ Chikz 
VAL CRC) 2 G=G+K+ 655364 IG4K 532767): IF ASF THEN POFE AK 

24 NEXT:READ D: T=VAL SR ADS: IF TESS THEN FRINT CHR): "Erre 
ur ligne“:;L:END ELSE L=L+5:HEND 

166 DATA 64, 80,006, 00,00, 06, 06,06, 06, 06, 00, 00, Qu, 46, 6, 06, dodë 

185 DATA 06,06,60, 60, 60,06, 76,51, 06,06, 60,06, 00, Gt, 00, A6, OGC 1 

119 DATA 60,66, 08,00,20,61,00,00,00,54,00, 00, AFP, 32,03, TA, 8514 

115 DATA 21,4F,06,11,96,68,01,01,18,3E,09,F5,C0,51,3B,CD, 888€ 


AT 


Az 


81 


126 DATA 2D,2P,CD,51,28,60,F1,2D,20,F1,24, DD, 21,27, 3B, CD, 6EC9 
125 DATA FE, 24, 20,05,CD,F5, 24, 20, 19,FA,C3, 7D,3E,CD, 49,38, 1629 
26 DATA CD,20,2E,C7, 40,38, DD, 7E,00,E6, 3F,CD, 3D,2B, CD, 2D, IDSE 
35 DATA 2B,CD, 30, 2B, 24, DD,CE, 09, 7E, 28,01, 2D,DD,CB, 66, 76, 2299 
146 DATA 28,01,20,2D,26,E5, DD, 23, DD, 7E,09,87, 20, DB, C9, A, 216 
145 DATA BA, 0A,8B,01,00,C5, 06, 79,05, 06,FF, 10,FE,C1, 19,FE, 310€ 
156 DATA C1,CD,19,80,09,01,09,19,F5, 11, AC, 68,ED,43, 98, JA, 3 
155 DATA ED,53,9A,3A,CD,E5,48,F1,09,61,25,C5, 79,01,01, 10, 4000 
160 DATA F5,E5,05,ED,57, 94, 3A,ED, 43,98, 24, CD,E5, 48, Di,AF, 4A4C 
165 DATA EE, 11,19,09,ED,52,EB,E1,F1,25,3D, 20,0, C1, 11,98, 5223 
176 DATA 68,21,AF,00,09, 2€, 01,CD,0E, EC, ZE, OC, 32,9, ZA, CD, 5826 
175 DATA 26,48,21,1F,26,4F, 32, AA, SA, CD, AE, 44, CD, 62, 48, 06, SDAS 
186 DATA 06,CD, 77,47,06,00, CD, 8, 47,00, 45,47, DD. 21,58,52, 6282 
185 DATA 16,00, DD, 7E,00,FE,90,28,0C,FE,FF, 28, SA, 14,01,33,6930 
196 DATA 09,DD,99, 18,ED, 7A,0E, 00, DD, 26,00, 51, Dé, 06, 38,03, 6E2E 
195 DATA 0C,18,F9,79,87,28,07,47,0E,20,AF,81.10,FD, db, AF, 740E 
206 DATA 90,ED,44,4F,74,4F,D6,06,38,03,4F, 18,79, 79,87, 28, 7ADé 
265 DATA 67,47,AF,0E, 00,81, 10,FD, 04,08, BD, 67, DD, 23, DD, 23, 8674 
216 DATA DD,23,D0,22, A2, 3A,00,E5,D5,CD, 79, 44,D1,14,DD,E1, BA0F 
215 DATA 61,20,00, DD, 09, 18,98, CD, 20,47, CD, 19, BD, CD, 19, BD, 9453 
226 DATA CD,19,0,CD, 19,80, 21,BE, SA, 7E, 23, B6, 20, 04,23, 7E, 96CE 
225 DATA 87,C8,2E, 4, CD, LE, BB, 20, 18, AF, ED, 4B,B9, 3A, 21, 59, 9DFD 
236 DATA 27,ED,42,29,06,2E,01,32,C3,2A,C9,CD, AA, 43,03, A4,A4EÏ 
235 DATA 3B,CD,92,44,CD, 68, 2C,AF, 22,BE, 2A, 22, Ab, 3A, 34, BF, AC16 
246 DATA ZA,FE, 63, 20,04, 4F,32,EF, 3A,2E, 02,32. C3, ZA, C9, C3, 8250 
245 DATA 7D,3B,4F, 22,49, 24, 1E, 17, CD, 1E, 48, CD, 80, 46, 21,7, B89C 
250 DATA 00,22,9€, 3A, 3E,01, 22, AA, ZA, CD, AE, 44, DD, ZA,AE, JA, BE99 
255 DATA DD,6E,06,DD,66,01,CD,E3, 44, CD, 19, ED, CD, AA. 43, CD, C746 
260 DATA AC, 46,21,00,05,28, 70,85, 20,FB, CD, 29,47,21,91, 00, CC2E 
265 DATA 28,70,85,20,FB,CD,F3, 30, 21,56, 06,28, 7C,E5, 20,FB, D366 
276 DATA 21,BB, ZA, 7E, 23, B6, 20,06, 23,7E,87,E1,CB,E5, ZA, B2,DAEE 
275 DATA 3A,FE, 99,20, 10,AF,22, 82, 34, 21,BF, 2A,34,CD, A7, BC,E243 
286 DATA 21, 12,68, CD, AA, BC, 06, 84, CD, 19, BD, CD, 19, BD, 19,FB,EA19 
285 DATA C9, 3A,B6, 2A,87,C4,60,47,C3,C1,2F, 3A,B3,3A,B7,28,F1F7 
296 DATA 14,21,00,04,28,7C,B5,20,FB, ZA, B1, A, 3D, 22,81. 3A,F726 
295 DATA B7,C0,32,E3, 34, 2,9, ZA, CD, AE, 44,3E,02, CD, AD, BC.FEFZ 
306 DATA CE,17,21,CA,67,D4, AA, BC, DD, ZA, AE, 3A, DD, 7E, 04, 87,076 
305 DATA 28,06, CD, 72,3F,C3, BB, 3F, DD, 7E,05,87,20,0F, ZA, 9€. ODED 
310 DATA ZA, DD, 46,09, 90, CA, 2A, ZE, DA,E0, 2D, 18, 1F, DD, 46, 69, 145D 
315 DATA ZA,9E,34,90,29, 16, DD, 46,01,3A,9F, 3,90, 36,02, ED, 1A1B 
326 DATA 44,FE,04,20,07,AF, DD, 77,05,C3,85,3E, DD, 7E,03,87,216E 
525 DATA 29,23,CD,F1,3E, CC, 50, 3F, DD, 7E,04,87, 20, B4,CD, 48, 2916 
339 DATA 3F,DD,66,01,DD, 6E,09,CD,E3, 44, DD, 7E, 02,84, 67, DD, 3077 
235 DATA 74,01,CD,E3, 44, DD, 7E,00,FE,E7, 26,45, DD, 66,91, DD, 28FE 
340 DATA 4E,00,70,D6,0F,6F,CD, 18,49, 7E,FE, 07,29, 0A, 23,23. 3E5E 
345 DATA 23,7E,FE, 1F,29,28, 18,0C,FE, 37,28, 25,23,23,23,7E,42EC 
156 DATA FE, DF, 29, 1D,DD, 6€, 09, DD, 66,91 ,CD,EZ, 44, 2C, 20, DD, 4ABE 
355 DATA 75,00,CD,E7,44,3E,FF, DD, 77,03, AF, DD, 77,05,C3, BE,5341 
360 DATA FLAF DD, 77,08, 3,BE,3F,DD,7E,03, 87, 02,80, 2D, ZA, SBLE 
365 DATA 9F,34,DD,66,01,94,26, 10, DD, 6E,08, 3A,9E, 2,95, 30, 4121 
370 DATA 02,ED,44,FE,0C, DA, ES, ZE, DD, 66.01, DD,6E, 6, CD, F1, 6978 
375 DATA 3E,D0,7E,04,87,C2,88,3F,CD,48,3F,DD, 66,01, DD, 6E, 7168 
186 DATA 06,CD,E3, 44, DD, 7E,92, 84,67, DD, 74,61,CD,E3, 44, C3, 79AD 
385 DATA BB, 2F, DD, 7E,03,87, 28,33, DD, 66, 01, DD, E, 00, ED, 5E, BOEE 
396 DATA 9€, ZA,ED,52,CA,85, 3€, DD, 66,61, DD, 6E, 06, 7D, Dé, 19, B8B4 
395 DATA 4F,25,CD,18,49,7E,FE, F0, 28, 0D,3E,05,85,6F,8C,95, BF6F 
406 DATA 67,7E,FE,FO, C2, 8D, 2D,AF, DD, 77,03, DD, 6, 01, DD, E, 9867 
465 DATA 68, 2A,9F, 24,94,30,02,ED, 44,FE, 64,35, 49, DD, 66, 61, 7E2E 


82 


416 DATA 2A,9F,7A,94,28,07,3E,01,DD,77,02,18,05,3E,FF, DD, AZDD 
415 DATA 77,92, CD,F1,3E,CC, 50, 3F,D0,7E,04,87,C2,8,3F,DD, ACES 
429 DATA 66,61,DD,6E,99,CD,E3, 44,DD, 7E, 02,84, 67, DD, 74,01, B3A5 


425 DATA CD,EZ,44,34,9F, 3A,DD,66,01,94,C2,BE,3F, 21,06, 04, BAS 
429 DATA 28,7C,E5,29,FE, ZA,E5, LA, 3C,FE, 01,22,85, 2A,C2, BB, C1DE 
435 DATA 2F,4F, 22,85, 34, 24, B1, 34,30, 32,81, ZA,FE, 14, 29,08, C7A5 
446 DATA 22,83, 3A,CE,2F,22,81,2A,4F,06,01,0€,01,11,CA,C7, CD52 
445 DATA 21,82, 34,CD,81,47,C3,BB,3F,DD, 66,61, DD, 6E, 06, 7D, D4ED 
456 DATA Dé, 16,6F, CD, 18,49,7E,47,23,23,23,7E,4F, DD, 7E, 09, DA9E 
455 DATA FE, 2F, 29,23, 78,87, 20, 16,32€, 01, DD, 77,02,57, DD, 46,E4FA 
4e DATA 09,28,9€, 34,90, 08, DD, 26,05,61,3E,91,87,09, 79,87,E77C 
465 DATA CO,3E,FF, DD, 77,02,87, DD, 46,00, 34,9E, 34, 90, DE, DD,F000 
476 DATA 36,05,01,3E,01,87,09,78, 81,00, 2F,E7,DD, 77,04, C9,F4EE 
475 DATA DD,66,01,8F, EC, 28,64, E, 4C, BC, C9, DD, 7E,02,ED, 44,FESA 
489 DATA DD, 77,92, C9, DD, 7E,02, ED, 44,DD, 77,62, DD, 7E, 60, FE, 0686 
485 DATA 2F,00,47, 24,9, 2A,99,D8, 2F,C9,AF, DD, 77,04, DD, 66, 0EB8 
496 DATA 01,DD,4E,00, 70, Dé, 19, 6F,CD, 18,49,7E,FE,FC,CB,FE, 1742 
495 DATA 1F,C8,FE,FO,CB,FE, CO, CB, 23, 23,23, 7E,FE, FC, CB,FE, 220€ 
So DATA 1F,CB,FE,FO,CB,FE, CO, CB, E,FF, DD, 77,04, DD, 66,01, 2C08 
545 DATA DD,6E,06,CD,E3, 44, 20, 20, 20, 20, DD, 75,66,C3,E3, 44,2327 
519 DATA CD,72,23F,2A,9E, ZA,C3, AE, 44, DD, 2A,AE, ZA, DD, 66, 91, ZA9F 
515 DATA DD, 6E,00,CD,E, 44, 3, Bb, 3, 87, C2, 86,45, 3E,48, CD, 4294 
526 DATA 1E,BE, CA, B6,49, 22,46, 3A,CD, 24,45, AF, 32, A4, 3A, 32, 4942 
525 DATA AS, 34, 24,9€, 34, 70,6, 0F,&F, CD, 18,49,7E,FE,E1, 29, 509F 
536 DATA 0f,23,23,23,7E,FE, 78, 29,02, 18,0C,FE, D1, 29, 54, 23, 55E2 
535 DATA 27,23,7E,FE, 8, 29, 4C, 2A,9€, ZA, CD.AE, 44,20, 20, 7D,SC2E 
546 DATA FE,C9,20,1E, ZA, A8, ZA, F7, 28,09, 2A,%E, ZA,CD,AE, 44,62FE 
545 DATA C3,86,46, 24,49, 2A,D6,04,22, 49, 3A,E5,CD, 19,48,E1, 681 
550 DATA 2E,21,22,9€, 3A,CD, AE, 44, 2A,9€, ZA, 7D, Dé, 19, 6F, 25, 7082 
555 DATA CD,18,49,7E,FE, F6, 28,08, 61,05, 06,69, 7E,FE,FO, 28, 76F2 
566 DATA 02,18,2B,AF, 22,6, 2A, ZA,9E, ZA,FE, B9,28,05, 2€, 01, 7C3D 
565 DATA 32,A6,3A, 24,9, AFE, 3F,20,05,3E,01,22, Ab, JA, 2A,BI4E 
576 DATA 9E, 2A,01,FF,26,ED,42,26,05,3E,01,22,B6, ZA, ZE, 49, 648 
575 DATA CD, 1E,BB,CA, 1F,41,CD, 2A,45,2E,FF, 32,6, 3,27, 22, 8064 
586 DATA B6, 3, 32,44, 28, 22,45, 3A, 2A,9E, ZA, 7D, Dé, 1,4F, CD, 9386 
585 DATA 18,49,7E,FE,Ei, 26,04, 22,23, 23,7E,FE, F0, 26,02, 18, 99AD 
590 DATA ÉC,FE.C0,20,46,22,23,23,7E,FE, 39,20, 3, 2,9, ZA, 9F52 
595 DATA CD, AE, 44,20, 20, 7D,FE, 1F, 28, 0F, 24, A9, 3A, Ch, 04, 32, A54D 
boG DATA A9,3A,E5,CD, 19,48,E1,2€,C7,22,9€, ZA, CD, AE, 44, ZA, ACFC 
695 DATA 9€, 34,7D,D6,10,6F,25, CD, 18,49, 7E,FE, FO, 28, 0, 01,B394 
616 DATA 05,06,09, 7E,FE,FO,28, 03,03, 1F,41,AF,22,Ab, JA, 34, B95D 
615 DATA 9, ZA,FE,E9,38,95,3E,01,32, A6, 3A, 3A,9E, SA,FE, 3F,BFC9 
426 DATA 36,95,3E,01,32, A6, JA, ZA, Bb, ZA, E7,C2, 84,20, ZA, Ab, C592 
625 DATA 3A,87,20,02,18,07,3A,A7,2A,E7,CA,84,3C,CD, 18, 46,CB4B 

26 DATA 3A,B8, A,87,28,22, A, AT, ZA,B7,29, IC, , 22, BB, 3A,D159 
625 DATA 24,89,34,06,0B,99, 39, 28, DD, 24, AE, ZA, DD, GE, 09, DD, D78D 
b4o DATA 66,01,CD,E7,44,C7,68, 45, 3A, A7, 2A,B7, 28,08, ZA, 86, DE47 
445 DATA 24,20, 22,80, 3A,C3,84, 30, 2A,E0, 2A,06,0E, 90,38, 41,E39C 
650 DATA AF,22,80,2A,32,B2, 3, SA,BF, ZA, 20,22, BF, ZA, DD, ZA, EAZ6 
455 DATA AE, 3A,DD, 6€, 06, DD, 66, 01,CD,E3, 44, 2A,9€, 3A, CD, AE,F20E 
be DATA 44,2A,9E,2A,CD, 19,45, 21,EE, 67, CD, AA, BC, 21,F7,67,F99E 
665 DATA CD, AA, EC, 21,09,68, CD, AA, BC, 06,FF, CD, 19, ED, 19,FE, 8246 
676 DATA C9,AF, 32,80, ZA, 3A, 6, ZA,FE, 04, C2, 84, 3C, ZE, 4A, CD, 6903 
875 DATA 1E,BB,CA,A8, 42, €, 48, CD, 1E, BB, C2, A8, 42, CD, 24,45, 1167 
é86 DATA ZE, 4C,CD, 1E,BB, 28,0C, ZA, AB, 3A,FE, 09, 20,05, CD, 20, 1702 
685 DATA 42,18,04,AF,22,A5, A, 2A,9E, A,CD,AE,44,AF, 32, AA, 1D6D 
699 DATA 2A,25,7C,FE,FF, 20, 24,24, 3A, A9, ZA,FE, 00, CB, ZA, AB, 2472 
495 DATA A,87,28,69,2A,9E, ZA, CD, AE, 44,C3, AC, 42, JA, A9, JA, 2E23 


786 DATA 3D,32,A9,3A,E5,CD, 19,48,E1,26,4C,22,9€, ZA, CD, AE, 3254 
745 DATA 44,C3,AC,42,1A, A5, 34,87, C2,73,4%,D0D,21,56,52,24,295E 
710 DATA 9E, ZA, 7C,Dé,64,67,22, A0, 3A, 24, A0, 34, DD, 7E,66,FE, 464€ 
715 DATA FF,C8,47,3A, A9, 3A,BE, 26,68, DD, 5E,61,DD,56,02,ED, 47E7 
724 DATA 52,28, 97,01,33,04,DD,69,18,DF,DD, 23, DD, 3, DD, 27 (ail 
725 DATA DD ,E5,E1,22, AZ, TA, IE, FF,32,A5,3A, 24,46, 3A,CD, 79,558 
736 DATA 4825 F5 TC FE FF 28,04 F1 .C3. 8, 43,F1, 26, 48, 22, 3085 
735 DATA AB,3A,2A,A5,3A,2E,2E,2B,E5, DD,E1, ZA, A6, ZA, DD, 75,84EF 
746 DATA 61,DD, EE &E3E 
745 DATA AF,32,A5,3A,ZE,4E, CD, ÎE,BE,CA,CE, 45,3E, 44, CD, 16,7207 
75% DATA BB, C?,CE,45, CD, 24,45, 3€, 4C, CD, LE, BE, 28,08, ZA. AB, 7908 
755 DATA 3A,87,26,65,CD, 14,47,16,04,4F,232, 44,34, 2A,9E, JA, 7EEF 
7bÿ DATA CD,AE,44,3E,FF, 32, AA, 3A,24,7C,FE, 4D,24,25,25,7A,8590 
765 DATA A9,3A,FE,OE, 28, 1D,3A,A8,3A,57,28,06,ZA,9E,3A, CD, BE94 
774 DATA AE, 44,03,84,3C,34,49,24,30,23,A9,3A,E5, CD, 19,48, S2EÂ 
775 DATA Ei,26,00,22,9E,3A,CD,AE, 44,C3,84,3C, ZA, A4, 3A,E7,999C 
786 DATA .26,46,DD,21,58,92,2A,9€,3A,7C,C6,04,67,22, A8, 7A,GF4F 
785 DATA ZA, A6,3A,DD,7E,06,FE,FF,C8,47,3A,A9,3A,BE, 20, 0A, A6ES 
796 DATA DD,5E,91,DD,56,92,ED,52,28,07,61,23,00,DD,99, 18, AECA 
795 DATA DF, DD,23,DD,23, DD, 23, DE, ,ES,E1,22, A2, TA GE, FF: 32,49 
866 DATA A4, IA, ZA, AG, 3, CD, 79,44,24,F5,7C,FE,4D,28,1F,Fi,BC3D 
895 DATA 22,44,34,CD, 79,44, DD,ES,ES, ZA, AZ, ZA, 26, 2B,ES, DD, C488 
816 DATA Ei,E1,DD, 75,06, DD, 74,61,DD,E1,CD,44,46,09,F1,26,CDE9 
815 DATA 64,22,40,3A, 24, 42,3A,28B,2E,2B,ES,DD,E1, 24,46, 3A,D417 
828 DATA DD,75,61,DD, 74,62, DD,7E,00,3C, DD, 77,64, AF,32, A4, DBZD 
825 DATA 24,C9,ED,5E, A2, 34,05, DD, 21,58,92,DD,7E,4i,FE, ÎF,E348 
836 DATA 29,60, DD,6E,41,DD,66,62, DD, 23, DD, 23, DD, ZT, DD, 22, EA66 
25 DATA A2,34,3A,49,3A,47,DD,7E,FD,BB, 28,08, 7C,FE,09,28,FISE 
84 DATA 17,25,D0,74,FF,18,2E,CD,76,44,7C,FE,04,29,69,25,F7E7 
845 DATA DD,74,FF,CD,79,44,18,1D0,DD,7E,FD,FE, 66,28, 10, 3D,FF9E 
856 DATA DD,77,FD,26,4C, DD, 74,FF,3A,A9,3A,47,0D,7E,FD, ES, 9925 
855 DATA 24,67,CD,79,44,61,36,60,DD,69,18,9F,7C,FE, 66, 26, 6E3A 
8éÿ DATA F4,3E,54,DD,77,FE, DD, 77,FD,CD,24,47,18,E7,41,33, jéDé 
865 DATA à6,DD,49,DD,7E,G0,FE,FF,C2,B3,47,D1, Elie A2, 34, 1FE9 
874 DATA ZA, AB,TA, FE, 09,08, 24,40, 74, CD, 4A,46,34,C2,7A,E7, 26E9 
875 DATA 21,09,48, C4, A, BC, ZA,AB, TA,FE, 00, CE, ZA, AG, ZA, CD, ESS 
886 DATA 79,44,2D,2D,2D,2D,22,A6,24,CD, 79,44,DD,E5,E5, ZA, 7524 
885 DATA A2,3A,2B,2F,E5,DD,E1,E1, 00, 75,60, DD, 74,41,DD,E1,3E78 
899 DATA C9,E5,11,04,8C,ED,33,98,34,ED,5E, AZ, 3A,ED, 57, SA, 4617 
895 DATA :4,7D,D6,44,6F,CD,E5,48,E1,C9,0D,21,56,52,D0, 7E, 4EBE 
906 DATA 06,FE,51,26,04,3D, DD, 77,04.61.73,09, 00,46, 00, 7E,5477 
945 DATA 40,FE,FF,CE,18,E8,61,04,10,ED,43,96,ZA,3A, A6, SA SE 
916 DATA FE, 44,28,0A,01,39,56,ED,47,S9A,3A.C3,ES,46,91,F4, 6107 
915 DATA 4F,ED,43,5A,24,C3,E5,48,21,64,91,3A,49,34,61.06, 686 
926 DATA 46,99,2D,FE,FF,24,FA,22,AE, 34,09, 3A,BE, ZA, 3C, 32, &EDA 
925 DATA BE, 2A,FE,69,36,09,01,70,90,ED, 43, 94.34, 18,6F,01,73FF 
26 DATA B6,56,ED,43,9A,3A,FE, 10,26,04,AF,32,BE, ZA, 91,64, 7412 
935 DATA 19,ED,43,98,3A,C3,E5,46,01,64,16,ED,47,96,34,01,862D 
94ÿ DATA F0,50,2A,AÀ, ZA,E7,28,03,01,34,51,ED,47,74,3A,C3,8866 
945 DATA E5,48,. ZA,AS, ZA, 47,2A, A4, 3,6, 2ÿ,0E,3E,61,CD, AD, 8CF2 
956 DATA BC,CE,17,D6,21,01,67,C3,AA,BC,21,DC,87,C7, AA, EC, 67 
955 DATA 21i,BF,67,3A,A9,3A,46,E0,28,07,27,7E,FE,FF,C8,18,907£ 
96 DATA F2,21,98,17,22,98,1A,21,6D,9F,22,984,3A, 21,06, 24, AZZA 
965 DATA C3,E5,48,CD, 19,BD, ZA,9E, 3A,CD, AE, 44,3A,9F, 24, 35D,A9CE 
970 DATA 22,9F,ZA,FE,FF,26,27,7A,A9,ZA,E7,CB, ID, 32, A9. 7A, 6167 
975 DATA CD,19,48, .AF,32, BE, 3A, DD, 2A, AE, 24, DD, LE, 06, DD, bb, BEBE 
986 DATA 41,CD,E7,44,21,1F,40,22,9E,3A, 2A,9E, ZA, CD, AE, 44,BEC7 
- 985 DATA CD, AC, 46,CD,24,47,3A,Ci,3A,CB,67,32,C1,3A,FS, DC, CéBF 


23,86,26,06,23,7E,CDÛC 


906 DATA Añ,43,F1,DC,F3,3C,Z1,BB, ZA,7E, 
995 DATA B7,E1,CB,ES, 18,90, 4F,22,M, SA, C3, 64, 20 AF,32,47,Dé6 

1864 DATA ZA, ZA,SE, ZA, 70, Dé, 16, 8F,CD, 18, 49,7E, FE FD, CB,FE, DFÉE 
1685 DATA ne ie nes ee 1F, CB,23,23,23,7E,FE,E9C9 
1914 DATA F6,C8,FE,E1,.C8.FE,CO,CB,FE, FC COFE IF, CS,ZE,FF,FÉ92 
1915 DATA 22,47,3A,32,C0,3A,23A,9E, 2A,FE, 2F, Dé, 32,88, 34,C9,FDDD 
1824 DATA 2A,9E,7A,CD,D5,45, ZA, À7,3A,87,20,6F, ZA, CS, JA, 27, 4482 


1825 DATA 21,E3,67,CB,AF, 22,00, ZA C3, AA, BC, 21,05, 67, CD, AA, ODED 
1930 DATA BC. 29, VE, SA CDAE, 44,2D,20,2D, 20, 22,9€,%A, CD,AE, 1467 
1925 DATA 44,09,0F,22,AB, ZA, 2F, 22,02, 24, 70, Dé, 10,6F, CD, 18, 1547 
1946 DATA 49,7E,FE,EI,CB,FE, 1F,CE,FE, FC, CB, FE FO, CB, 23,23, 2658 
3A 


1945 DATA 33,7E,FE,EI,CB,FE,1F,CB,FE,FC,CO,FE,FO,CB,GE,FF, 
1950 DATA 32,8, ZA, AF,32,C2,3A,C9,06, Sû, ZE, E1,21,20,07,77,38F8 
1855 DATA 23,19,FC,21,30,EF, le En 77,23,16,FC,21,32,CF, GE, 383 
1668 DATA 44,ES,ZE,E1,46,1À,7 3,14,FA,EI, CD, 26, BC, 4575 
1065 DATA OD20EEC9.2131,CF 11,20 CF, 01.47, 00, ED B0 21. ABS 
1676 DATA 31,07,11,26,07,41,4F,06,ED,B4,21,31,DF, 11,28, DF,SÎE6 
1975 DATA de 4F,06,ED,B6,21.31,E7,11,20,E7,01,4F,69,ED,B6,57F1 
1986 DATA ZA, 31,CF,FE,90,28,02,3E,E1.32,7F,CF,32,7F,D7, 32, SEAC 
1985 DATA Re D a do Cu 
1996 DATA 06,FE,FF,CB, BE, 26, LA, DD, &E, 61, DD, 66,02, DD, 23, DE, 6EF7 
1995 DATA 23,D0,23,DD,22,A5,34,CD,79,44,61,36,60, 00,69, 16, 748€ 
1166 DATA D9,41,17,46,DD,49,18,D2,06,01,AF,37,0E,07,11,88, 7922 
1195 DATA C7,21,BE,24,CD,81,47,09,66,50,AF,CD,3A,47,66,61,7FE7 
1119 DATA ZE, 41,9E,42,21,89,3A,11,44,07,C3,81,47,3A,BF, TA. 8554 
1115 DATA FS,EE,03,122,EF,3A,AF,47,0€,01,11,B6,07,21,BF,34,6Cié 
1124 DATA CD,81,47,F1,22,HBF,3A,C9,3A,E7, ZA, JC,FE,43,28,04,95724 
1125 DATA 232,87,3A,C9,AF,32,87,34,3A,B2,3A,E7,C8,06,61,AF, SAGE 
1136 DATA 17,06,01,11,CA,07,21,82,34,F5,30,87,3E, 90,22, A6,9FFE 
1135 DATA 47,18,95,23E,80,32,A0,47,F1,87,79,F5,ES,05,0€.06,4717 
1148 DATA 26,02,23,2D,32,F4,3A,7E,84,27,77,70,11,34,E4,ZA,ABCE 
1145 DATA 47,79,05,90,28,08,27,06,61,79,3C,4F,18,EG,Ei,D1,B12C 
1156 DATA F1,47,3D,87,5F,30,01,14,C5,E5,D5, 1A,CD,D5,47,D1,891E 
1155 DATA E1,3E,06,85,6F,26,61,24, 1,01, 16,EC,C9,4F,ES, CE, CASB 
1iéé DATA E7,47,E1,25,33,23,79,17,17,17,17,CD,E7 47 C9,E6, 0722 
1165 DATA F6,11,88,51,83,24,61,14,5F,06,08, 14,77,13,27, 14,CB42 
1176 DATA 77,13,2E,7C,C6,68,67,16,F2,09,3E,01,CD,94,E8, 1, DiEB 
1175 DATA 19,61,C0,75,BB,21,3C,69,7E,E7,C8,CD, SABRE, 23,18, D08E2 
1186 DATA F7,1E,16,2€,06,2E,04,16,28,CD, bè, BB, CD, 6C,BE, CFA 
1185 DATA EE,46,CD,D,44,CD,48,45, 34,9, 7,21, 74,49,87,85,E6BÀ 
1198 DATA 6F,29,91,24,4E,27,46,C5,ÉD,E1, 11,44. 08,ED.53,98,E07L 
1195 DATA 34,11,B4,4F,ED.53, SA, 24, DD, 45,06, DD, &E, Qi, DD, 66,F36 
12606 DATA 92,22,9E,7A,CD,E5,49,3E, 64,84, s 4.18 F 
1295 DATA DEEE Doi JE OS, FE. 6 
1214 DATA 44,68,E0,53,98,3 
1215 DATA ED,53, 9h ZA 18,67, 
1224 DATA DD,6E.4i,0D,86,6 
1225 DATA 23 

1276 DATA 2 ne 36,41 ,EÈ 
1275 DATA ee DD,5E 02,00 56, ut , 96, 2à, DD, GE, Ë4, 
1246 DATA DD, 66,65,CD,E5,49,61,45,00, 00,69, 18,D5,E5, 05.05, 
1245 DATA CD,18,49,ED,48,98,3A,ED,SB, 9A, ZA, CS, LAÇAE, 77. 
1256 DATA 27,6D,26,FH,CI, DS, 2,90, JA 11,96,88,19,CB, 70,56 
1255 DATA à4,11,56,08,19,D1,22,90,74,05,29,DF,C1,01,E1,09,4606 
1268 DATA F5,D5,7C, F5,26, 04,29,11,20,4E,19,7E,22,8C,3A, 23, 4C8E 
1265 DATA 7E,22,90,34,28,00.34,16,90,F1,9F,19,22,9C,34,D1,525À 
1274 DATA F1,C9,0F,62,3F,63,A5,67,45, 64,50, 64,66, 64,55, 05, SC 
1275 DATA AC, 65,67, 66,78, 66,ED, 66, 4h, 67, 41,67, 60,00, 60,6, 5F9Ce 


: 69,11,86,4F,0671 
1,D6,4F,ED,53.984, 24,00, 46,06, GD2E 


eo 8,70. D6.68. 8, 47 
7E, 49, FE, 66, HI 
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JE DÉBUTE EN BASIC AMSTRAD 

C. Delannoy. 152 pages. 

Réf. El ss SF 
Ce livre est écrit dans un langage très simple. La 
démarche est progressive, chaque notion est pré- 
sentée sur un exemple simple accompagnée de 
nombreux exercices. L'auteur nous famüliarise avec 
les erreurs possibles. 


FAITES VOS JEUX AVEC AMSTRAD 
C. Delannoy. 200 pages. 

Réf. ET ...... l0F 
Ce livre vous propose un éventail de jeux exploitant 
pleinement les possibilités graphiques et sonores 
des AMSTRAD CPC 464, CPC 664 et CPC6128. 
Son rôle ne se limite cependant pas à celui d'un 
simple recueil de programmes. Tout d'abord, il vous 
offre la possibilité d'adapter chacun d'entre eux en 
fonction de vos goûts et de vos désirs, et cela sans 
même que vous ayez besoin de connaître le Basic. 
C'est dans ce but que chaque jeu est accompagné de 
nombreuses suggestions de personnalisation qui 
vous sont expliquées dans le moindre détail 


AMSTRAD 56 PROGRAMMES 

S.R. Trost. 160 pages 

Réf. 52 78F 
Ce livre vo: propose 56 programmes prêts à l'em- 
ploi dans de nombreux domaines d'application per- 
sonnels et professionnels: finances personnelles, 
gestion, immobilier, analyse de données, éducation. 


JEUX D'ACTION 
P. Monsaut. 96 pages. 
Réf. 57 ....... 4F 
18 jeux d'action en BASIC pour votre Amstrad tank, 
trace, D.C.A. blitz, squash, alphabet, numérix, atter- 
rissage, etc. 


GEREZ VOTRE 
PORTEFEUILLE BOURSIER 
Jean-Claude Despoine et 

François Plerre 

Réf. S05, 140 p.,98 F 

Cet ouvrage aidera l'amateur à gérer plus 
efficacement son portefeuille de valeurs 


PROGRAMMEZ VOTRE 
TRAITEMENT DE TEXTE 
Jean-Claude Despoine 

Réf. S06, 140 p., 128 F 

Le traitement de texte présenté dans cet 
ouvrage, pour l'essentiel en assembleur. 
est destiné à tous les possesseurs de 
CPC 464 (avec ou sans lecteur de 
disquettes), 664 et 6128 


PROGRAMMES 
D'INTELLIGENCE 
ARTIFICIELLE 

Daniel Lebigre 

Réf. S07, 240 p., 148 F 

Cet ouvrage permettra au lecteur 
d'aborder le monde fascinant de 
l'intelligence artificielle 


MIEUX PROGRAMMER 

EN ASSEMBLEUR 

Thomas Lachand-Robert 

Réf. S08, 240 p., 148 F 

Cet ouvrage est destiné à tous ceux qui 
ont déjà acquis les bases de la 
programmation en assembleur ou en 
langage machine 


TECHNIQUES DE 
PROGRAMMATION DES 
JEUX EN ASSEMBLEUR 
Georges Fagot-Barraly 

Réf. S09, 160 p., 98 F 

Cet ouvrage contient des programmes 
de jeux écrits pour les ordinateurs 
Amstrad CPC 464, 664 et 6128 


JEUX EN ASSEMBLEUR 

Eric Ravis 

Réf. S10, 104p.,78F 

Les 18 jeux présentés dans ce livre 
utilisent toutes les possibilités de votre 
micro-ordinateur 


NTM. Z 


LE rl 


LOCOSCRIPT 

Bernard Le Du 

Réf. S11,140p.,110F 

Ce livre est une introduction et. par Sa 
démarche pédagogique. il vous 
permettra une decouverte aisée et rapide 
de ce traitement de texte 


MISE AU POINT DES 
PROGRAMMES BASIC 
Claude Vivier et Yvon Jacob 
Réf. S12,148p.,98F 

Ce livre étudie la manière dont sont 


stockés. dans la mémoire d'un nucro 
ordinateur, un programme Basic et ses 
vanables associées 


JEUX DE REFLEXION 

Georges Fagot-Barraly 

Réf. S13. 200 p., 78F 

Cet ouvrage contient vingt programs 
de jeux de réflexion écrits pour les 
ordinateurs Amstrad 


ASTROCALC 

Gérard Blanc et Philippe 
Destrebecq 

Réf. S14, 168 p., 148 F 

Si vous souhaitez disposer d'un outil de 
calculs permettant l'érection d'un thème 
natal ou d'une révolution solaire, la 
comparaison de thèmes. cet ouvrage 
vous comblera 


CREER DE NOUVELLES 
INSTRUCTIONS 

Jean-Claude Despoine 

Réf. S15, 144 p., 128 F 

Cet ouvrage contient de nombreux 
exemples de programmes pause de x 
secondes, intégration d'un programme 
machine, dessin d'un quadrilatère 


GAGNEZ AUX COURSES 
Jean-Claude Despoine 
Réf. S15,112p.,98F 

Ce livre se propose d'esplic 
ilest possib uni ord 
étudier une course d'une rnar 
rationnelle et rapide 


le d'utiis 


CP/M PLUS 

Anatole d'Hardancourt 

Réf. S17, 208 p., 148 F 

Après le succès des CPC 464 et CPC 
664, utilisant la version 2 2 de CP:M 
Amstrad présente ses deux nouvelles 
machines (CPC 6128 et PCW 8256) 
équipées de la version 3 0. encore 
appelée CP:t4 Plus 


GUIDE DU BASIC 

ET DE L'AMSDOS 

Jean-Louis Greco et Michel 

Laurent 

Réf. S18, 288 p., 128 F 

Ce guide est uni dictionnaire complet du 
Basic Amstrad disporible sur les modèles 
CPC 464. CPC 664 et CPC 6128 


GRAPHISME 

EN TROIS DIMENSIONS 
Thomas Lachand-Robert 

Réf. S19, 240 p. 148 F 

Vous pourrez, grâce à ce livre 
représenter des polyèdres. des surfaces 
voire des objets plus complexes en trois 
dimensions sur l'écran de votre 
ordinateur 


ASTROLOGIE/ 
NUMEROLOGIE/ 
BIORYTHMES 

Pierrick Bourgault 

Réf. S20, 160 p., 108 F 

Cet ouvrage se présente en quatre 
paries : astrologie occidentale. astro 
chinoise, numérologie. biorythmes 


ologie 


CP'M 22 

Anatole d'Hardancourt 

Réf. S21, 248 p., 128F 

Avec l'Amstrad. le système CP M 
disponible pour le première fois sur un 
ordinateur coûtant moins de cinq rule: 
francs. ouvrant à celui ci limmense 
bibliothèque des programmes 
d'applications professionnelles 


GUIDE DU GRAPHISME 
James Winford 

Réf. S22, 208 p., 108 F 

Cet ouvrage présente, à l'aide 
d'exemples de programmes en Basic 
toutes les techniques indispensables 
pour permettre au lecteur de réaliser de 
façon simple et rapide ses programmes 
graphiques 


L'AMSTRAD EXPLORE 

John Braga 

Réf. S23, 192 p., 108 F 

A ceux qui ont déjà acquis les rudiments 
du Basic, ce livre permettra d'approfondir 
leur connaissance de la programmation 


PROGRAMMATION 

EN ASSEMBLEUR 
Georges Pagot-Barraly 

Réf. S24, 208 p., 108 F 

Tous les utilisateurs d Amstrad qui 
veulent aller plus loin, après av 
les ressources du Basic. trouveront dans 
cet ouvrage les éléments nécessaires 
pour aborder la programmat:o 
assembleur 


56 PROGRAMMES 
Stanley R. Trost 

Réf. S25, 160 po 7 a 
Ce live 
que à 


PREMIERS PROGRAMMES 
Rodnay Zaks 

Réf. S26, 248 p., 108 F 

Ecnvez votre premier programme Basic 
Sur Amstrad en moins d'une heure 


JEUX D'ACTION 

Pierre Monsaut 

Réf. S27, 96 p., 49F 

18 jeux d'action en Basic pour votre 
Amstrad tank, trace, D C A .biltz 
squash, alphabet, numérix atterrissage 
etc 


LA DECOUVERTE 

DE L'AMSTRAD 

D.J. David 

Réf. P01,216p.,115F 

Cet ouvrage apprend à programmer en 
Basic l'Amstrad CPC et à en utiliser les 
capacités graphiques et sonores Ce livre 
s'adresse aux utilisateurs débutants de 
l'Amstrad CPC 464,664 et 6128 


EXERCICES EN BASIC 
POUR AMSTRAD 

M. Charbit 

Réf. PÔ2, 256 p., 130 F 

Tous les programmes de cet ouvrage 
destiné au débutant qui veut se 
perfectionner 


BASIC AMSTRAD . 
1°)Méthodes pratiques 

J. Boisgontier 

Réf. P21, 208 p., 105F 

Destiné aux possesseurs d'Amstrad qui 
ont déjà pratiqué le langage Basic 


oir maitrisé 


coin du livre 


BASIC AMSTRAD 

2 ) Programmes et fichiers 

J. Boisgontier 

Réf. P22, 144 p.,95F 

Pour les utulisateurs irutiés, une mine 
d'applications 

- des programmes graphiques 

+ des programmes de gestion de fichiers, 
- des Jeux à exécutiontres rapide, 

+ des programmes éducatifs 


BASIC PLUS 80 ROUTINES 
SUR AMSTRAD 

M. Martin 

Réf. P23, 168 p., 100 F 

L'auteur propose 80 routines pour 
simuler des fonctions qui n'existent pas 
directement sur la machine 


PERIPHERIQUES 

ET FICHIERS 

SUR AMSTRAD CPC 

D.-J. David 

Réf. P03, 168 p., 120 F 

Ce livre étudie la programmation en Basic 
des fichiers et des pénphériques Le 
lecteur doit déjà bien maitriser les 
instructions de base du CPC 


TURBO PASCAL 

SUR AMSTRAD 

D. Brandais et F. Blanc 

Réf. P04, 232 p., 135F 

Destiné aux possesseurs d'Amstrad 464 
664, 6128 et PCW 8256, ce livre leur 
permettra de maitriser ce langage très 
puissant Une bonne connaissance d'un 
langage comme le Basic est nécessaire 


ASSEMBLEUR 

DE L'AMSTRAD 

M. Henrot 

Réf. P24, 192 p., 105 F 

Pour lire cet ouvrage. il faut avoir une 
bonne pratique du langage Basic 


CP/M PLUS SUR 

AMSTRAD 6128 ET 8256 

Y. Dargery 

Réf. P25, 128 p., 100 F 

L'utiisateur initié de l'Amstrad CPC 
trouvera ici tous les éléments qui lui 
permettront d'utiliser à fond ies “plus” de 
CPM3 


RSX ET ROUTINES 
ASSEMBLEUR 

SUR AMSTRAD 

D. Roy et J.-J. Weyer 

Réf. PO5, 368 p., 200 F 

De très nombreux programmes de 
graphismes et de mathématiques 
permettront aux possesseurs d'Amstrad 
(464. 664.6128) d'améliorer leurs 
connaissances en assembleur Z89 


CLEFS POUR 
AMSTRAD CPC 

Tome 1 - Système de base 
D. Martin 

Réf. PO6, 224 p., 140 F 

Un mémento indispensable au 
programmeur de CPC 


CLEFS POUR 

AMSTRAD CPC 

Tome 2 - Système disque 

D. Martin et P. Jadoup 

Réf. PO7, 232 p., 155 F 

Consäcré aux Amstrad CPC 464, 664. 
6128 et PCW 8256. ce mémento procure 
un accès rapide à l'ensemble des 
informations indispensables à l'utilisateur 
du système disque commandes, points 
d'entrée des routines disque. blocs de 
contrôle 


LE LIVRE DE L'AMSTRAD 
D. Martin et P. Jadoup 

Réf. PO8, 256 p., 120 F 

Pour l'amateurinitié qui veut en savoir 
plus 


102 PROGRAMMES 

POUR AMSTRAD 

J. Deconchat 

Réf. PO9, 248 p., 120F 

Ce livre, idéal pour le débutant, va, au fil 
de ses 102 programmes de jeux guider 
le lecteur dans l'exploration du Basic 
Amstrad 


SUPER JEUX AMSTRAD 

J.F. Séhan 

Réf. P10, 240 p., 120F 

Des jeux d'adresse, de réflexion et de 
hasard pour l'amateur, déjà initié, qui veut 
maitriser rapidement le Basic 


AMSTRAD EN FAMILLE 

J.F. Séhas 

Réf. P11, 240 p., 120 F 

Une sélection de 40 programmes pour la 
maison touchant à sept domaines 


AMSTRAD A L'ECOLE 

D. Vielsen et A. Garcia-Ampudia 
Réf. P12, 232 p., 120F 

21 programmes d'enseignement assisté 
par ordinateur à recopier. 


AMSTRAD EN MUSIQUE 

D. Lemahieu 

Réf. P13, 244 p., 165 F 

Cet ouvrage va permettre à l'utilisateur, 
déjà initié au langage Basic, la traduction 
d'œuvres musicales sur Amstrad. 


PHOTOGRAPHIE 

SUR AMSTRAD ET APPLE 

P. Moigneau et X. de la Tuthaye 

Réf. P14, 192 p., 180 F 

Permet à l'amateur, déjà initié au Basic, 
l'exploration de toutes les ressources de 
la photo 


CLEFS 

POUR DBASE Il ET Il 
M. Keller 

Réf. P15, 464 p., 285 F 

Cet outil de référence pour tout 
programmeur 


CLEFS POUR MULTIPLAN 
Version 2.0 

J.-L. Marx et A. Thibault 

Réf. P16, 132 p., 105 F 

Cet ouvrage de référence pour 
l'utilisateur de Multiplan 


SUPER GENERATEUR 

DE CARACTERES 

SUR AMSTRAD 

JF. Séhan 

Réf. P17, 216 p., 140F 

Cet ouvrage. destiné aux amateurs initiés 
au Basic propose un programme original 
de création de caractères graphiques 


GRAPHISME 

EN ASSEMBLEUR 

SUR AMSTRAD CPC 

F. Plerat 

Réf. P18, 304 p., 145 F 

Cet ouvrage permet de programmer des 
applications graphiques en assembleur 
sur Amstrad 


CREATION ET ANIMATION 
GRAPHIQUE SUR 

AMSTRAD CPC 

G. Fouchard et J.-Y. Corre 

Réf. P19, 128 p., 110F 

Un informaticien et un peintre se sont 
associés pour donner envie à l'amateur 
de se lancer dans la création d'images 


mm D — 


BON DE COMMANDE 


17, rue Russeil 44000 NANTES 
Frais de port en sus: 25F 


Nom 


Adresse 


fi! 


A renvoyez avec votre règlement à STAMP DIFFUSION, 


Ci-joint mon règlement par chèque ou mandat. 


Veuillez m'envoyer les ouvrages dont j'indique les titres ci-dessous. 


ET Titres 
‘ ss L 
hi — 
rats Prénom É= LE NRA dise Ah 2 
PR de CRE RE RE 
sie uns Tél: sh ondes hote Den n CEE D CS RE 
EE RE | RU | 
Total 


COMMENT ECRIRE 
DES PROGRAMMES 
TRANSLATABLES 

EN LANGAGE 


MACHINE ? 


Cette question est de l’hébreu 
+ les programmeurs BA- 

IC et les propres en 
langage machine répondent: 
‘’Pas possible, sauf au prix 
d'acrobaties très pénibles’’. 
Alors nous allons pour les uns 
sxpiquer le problèmes et 
pour les autres donner une 
solution et l'appliquer dans 
un petit exemple. 


D Daniel LEBARBIER 


Quel est le problème ? 


Un programme translatable (ou relogea- 
ble : relocatable en anglais) possède la 
propriété assez rare de pouvoir s'exécu- 
ter correctement, quelle que soit 
l'adresse à laquelle il est chargé en 
mémoire. Tous les programmeurs en 
assembleur Z 80 savent bien que de ce 
côté, ce microprocesseur leur mène la vie 
dure et ils se surprennent à regretter 
qu'Amstrad n'ait pas choisi le 6809, bien 
plus agréable à manipuler. Les program- 
meurs BASIC ne savent toujours pas de 
quoi on parle, mais il suffit de leur rap- 
peler que l'adresse mémoire qu'ils don- 
nent dans un LOAD binaire ne peut géné- 
ralement pas être changée. Il suffit d'es- 
sayer pour s’en convaincre. De cette 
manière, les deux plus beaux sous- 
programmes et les plus belles RSX de la 
collection ne peuvent pas être utilisés en 
même temps s'ils occupent une partie 
commune de la mémoire, car ils s’écra- 
sent mutuellement. L'auteur du pro- 
gramme assembleur a choisi une adresse 
d'implantation par une directive ORG 
(souvent ils choisissent la même, AOOO 
ou une voisine) et plus possible d'y tou- 
cher. Malheureusement, l'utilitaire pro- 
posé ici ne permet pas de rattraper cette 
injustice pour les utilisateurs BASIC mais 
donne le moyen aux autres assembleurs 
de produire des programmes relogeables 
d'une manière très pratique ; à eux de 
travailler pour la communauté. 


— La solution proposée = 


La condition indispensable pour obtenir 
un module relogeable (et la seule) serait 
que le binaire obtenu après assemblage 
ne cite aucune adresse absolue en 
mémoire, excepté les adresses de rou- 
tine système pré-déterminées par AMS- 
TRAD. Prenons un exemple : le source 
assembleur suivant n'est pas relogeable 
ORG 30000 
ZONE DEFW O 


LD HL, (ZONE) 


CALL # BBO6 

A l'étiquette ZONE est affectée la valeur 
30000 par l’assembleur et c'est cette 
valeur qui est stockée dans les octets 2 
et 3 de l'instruction LD HL. Donc, à l'exé- 
cution, quelle que soit l'adresse à laquelle 
l'instruction sera faite, elle chargera le 
contenu des adresses 30000 et 30001 
dans le registre HL. Par contre, l'instruc- 
tion CALL #BB0O6 aura le même résul- 
tat, quelle que soit son adresse d'exécu- 
tion, parce qu'elle fait appel au logiciel 
AMSTRAD à des adresses fixes et con- 
nues de tous. | 

Toutefois, il est possible dans des sous- 
programmes courts et très simples, ou 
au prix d'une programmation spécifique, 
d'obtenir des programmes relogeables. 
Cette technique de programmation con- 
siste à mettre à profit l'adressage indi- 
rect (à travers les registres doubles BC, 
DE, HL) ou à utiliser l'adressage indexé 
(registres IX et IY). Ces modes d’adres- 
sage ne permettent d'accéder qu'à 1 
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octet, génèrent un code moins compact, 
allongent le temps d'exécution et mobi- 
lisent beaucoup de registres bien utiles 
pour faire autre chose : donc peu recom- 
mandables. Il existe également 2 instruc- 
tions qui ne codent pas les adresses en 
absolu, mais le déplacement par rapport 
au registre PC sur un octet : JR et DJNZ. 
Le malheur est qu'un octet représente un 
déplacement de 256, centré sur 
l'adresse de l'instruction, ce qui ne per- 
met pas dè sauter très loin. 

En fait, il faut admettre que le problème 
de la relogeabilité du code n'a pas été 
réellement vu lors de la conception de ce 
Z 80. Vouloir travailler de cette sorte 
conduit à se priver de la plupart des ins- 
tructions intéressantes. 

Nous proposons donc aux program- 
meurs assembleurs de programmer, 


comme d'habitude, c'est-à-dire le mieux. 


qu'ils peuvent, sans se préoccuper de la 
relogeabilité, dans un premier temps. Par 
contre, lorsque le programme est écrit et 
testé, il faut rajouter devant le source : 
— une table des symboles et de leurs 
références 

— le source de notre utilitaire. 
Assemblez le tout avec votre assembleur 
préféré et vous obtenez un programme 
relogeable : très simple, non ? L'idée est 
inspirée des Editeurs de Liens des grands 
systèmes informatiques. Elle consiste à 
venir modifier toutes les adresses abso- 
lues, contenues dans le binaire du pro- 
gramme après son chargement et avant 
son exécution, en appliquant la transla- 
tion nécessaire à celles générées par l'as- 
sembleur. La valeur à ajouter (ou à 
retrancher) à la valeur d'origine est tout 
simplement égale à la différence entre 
l'adresse réelle du chargement et 
l'adresse d'implantation forcée par ORG 
à l'assemblage. Après avoir modifié tou- 
tes les adresses, le programme redevient 


AMIS DU LOTO 


ne gaspillez plus votre mise ! 


Jouez “malin” avec 
LOTO-INFORMATIC 


Le programme d'analyses, 
de sélections et 
de combinaisons de jeux 
dont vous rêviez pour mettre 
le maximum de chance 
de gagner de votre côté 


DOC + CADEAU TRES UTILE 
pour la confection de vos grilles 
gratuitement sous réf. CPC 


INFORMATIC Applications 
BP N° 78 - 67800 BISCHEIM 
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exécutable à son nouvel emplacement et 
toute la place occupée par l'utilitaire et 
la table des symboles peut être automa- 
tiquement rendue au BASIC car elle est 
devenue inutile. 


—La table des symboles == 


Elle est constituée par un nombre quel- 
conque de sous-tables, une par symbole, 
défini dans le programme. Chaque sous- 
table est séparée de la suivante par une 
pseudo DEFW O. La table est elle-même 
bornée par une pseudo DEFW # ffff. Elle 
débute à l'étiquette SYM, obligatoire 
parce que mentionnée dans l'utilitaire. 
Chaque sous-table est constituée par un 
nombre quelconque de pseudo DEFW 
(au moins 2). La première cite le 
symbole, les suivantes définissent ses 
références, c'est-à-dire, les instructions 
du programme qui le mentionnent. 
Attention, lorsqu'une de ces instrutions 
possède un code opération représenté 
sur 2 octets (exemple LD BC, (-—)), il faut 
rajouter 1 à la référence dans cette ins- 
truction. Voir l'exemple. 

La constitution de cette table est la seule 
opération à effectuer, mais elle est 
essentielle. Elle doit être menée avec le 
plus grand soin faute de quoi un plantage 
est garanti. Elle reste malheureusement 
à la charge du programmeur assembleur 
car il n’est pas posssible de réaliser un 
utilitaire qui traite les tables des symbo- 
les des divers assembleurs que l'on ren- 
contre dans la nature (DAMS, ZEN...) 


— L'utilitaire de translation — 


Il est constitué par un très court pro- 
gramme assembleur qui accomplit suc- 
cessivement 3 fonctions : 

Calcul de la translation à appliquer. 
L'adresse réelle de chargement est un 
paramètre de CALL BASIC (voir le para- 
graphe suivant) et est donc récupérée 
directement dans le registre DE. Il suffit 
de la soustraire à la valeur de l'adresse 
LINK générée par l’assembleur pour obte- 
nir la valeur de la translation. Celle-ci est 
conservée dans DE pendant la durée du 
programme. 

Traitement de la table des symboles. 
Tout d'abord, son adresse SYM doit être 
elle-même translatée avant son utilisa- 
tion dans le registre IX. Puis chaque 
sous-table est successivement traitée de 
la façon suivante. L'adresse réelle du 
symbole est calculée à partir du premier 
mot de la sous-table qui contient le 
DEFW de sa définition par l'assembleur. 
Elle est conservée dans le registre BC 
pendant tout le traitement de la sous- 
table. Pour chaque référence au 
symbole, deux opérations sont à effec- 
tuer : calcul de l'adresse réelle de la réfé- 
rence avec un incrément de 1 pour le 
code opération (valeur la plus courante) 
puis déchargement à l'adresse obtenue 


du registre BC. Cette opération va donc 
substituer aux adresses placées par l'as- 
sembleur, l'adresse réelle du symbole. 
Du coup, le module binaire redevient exé- 
cutable et adresse bien les zones 
prévues. 

Restitution de l’espace occupé. Après 
l'exécution de toutes les translations, la 
place occupée par l'utilitaire et la table 
des symboles peut être rendue au 
BASIC. Cette opération est automatique- 
ment effectuée par l'utilitaire en déchar- 
geant dans la zone HIMEM le contenu du 
registre IX qui pointe sur la fin de la table 
des symboles. Dans notre exemple, 
HIMEM a pour valeur l'adresse de l'oc- 
tet qui précède l'étiquette DEBUT du pro- 
gramme de démonstration. 

Mise en œuvre dans l'exemple. Le pro- 
gramme assembleur proposé en exem- 
ple ne réalise aucune fonction intéres- 
sante. Son seul but est d'afficher un 
message contenant un texte et l'adresse 
d'implantation, ce qui prouve son bon 
fonctionnement. Il contient tous les cas 
de figure spéciaux cités précédemment : 
adresses absolues, adresses système, 
adresses relatives par déplacement et 
code opération à 2 octets. Toutes les ins- 
tructions qui font mention d'un symbole 
du programme, autres sur JR et DJNZ, 
doivent subir une translation. Pour les 
repérer dans la table des symboles, une 
étiquette a été générée à partir du nom 
du symbole suivi d'un suffixe. Cette opé- 
ration a été conduite après l'écriture du 
programme d'une manière méthodique 
pour ne pas en oublier. Chacun pourra 
adopter la méthode qui lui convient, mais 
attention si vous en oubliez |! 
L'assemblage de l'ensemble donne un 
module binaire repris dans les lignes 
DATA du programme BASIC. 2 éxécu- 
tions sont effectuées, l’une après char- 
gement à l'adresse HAOOO et l'autre à 
l'adresse H8000. Par rapport aux métho- 
des habituelles, la nouveauté est la ligne 
320 CALL HIMEM +1, HIMEM + 1. Ce 
n'est pas l'exécution du programme lui- 
même mais celle de l'utilitaire de trans- 
lation. Notez que c'est le programme 
BASIC qui lui communique son adresse 
réelle de chargement dans le deuxième 
paramètre du CALL. Toutes les opéra- 
tions de modifications d'adresse sont 
alors effectuées ainsi que le relèvement 
de HIMEM. Puis l'activation du pro- 
gramme lui-même est effectué en ligne 
210. 


— Conclusion=— 


Il serait intéressant que les program- 
meurs assembleurs se sentent concernés 
par cette réalisation. Ils peuvent désor- 
mais réaliser ce qu'ils avaient définitive- 
ment abandonné : écrire des program- 
mes relogeables. La communauté des 
utilisateurs BASIC leur en serait recon- 
naissante. Seule la constitution de la 
table des symboles peut devenir labo- 
rieuse pour des programmes importants 
en taille. Cependant, le confort apporté 


- dans l'utilisation ultérieure justifie large- 


ment ce petit effort. 


«COFYRIGHT 198$ MICKRO-AFFLICATTION, 


. DANS. 
OKG “0001 5 VOUS pouver choisir une autre valeur 
ENT + 


EE DE DEDÉEDEOME ME DE DE DÉMO DE DEEE EDMOND CREED DEEE EE OH EE EE DE EE EE 


% % 
* UTILITAIRE DE TKRANSLATION DE FKROGKAMME * 
* % 
* EN LANGAGE MACHINE * 
# 6 PF € et D Lebarbier La 
* # 
JM DEMO NEED DE DE DE DE DÉMEEDDEDÉDE DEDEEDEDEDEDEDE DEDE DEEDE DEDEDE SE DEDEDE EEDDEE 


calcul du deplacement adreesé de chargement - org mens 


ES se ‘28 sn Sn 28 cas CAS ‘su Can su 2u css ss ‘su ss 


ink CF 1 

KET nn 

EX de ,hl 
LD de,link 
SUR a 

SEC hl,de 
EX de ,h1 
LD h1l,sym 
ADD  h1l,de 
FUSH h1 

FOF 1x 


il faut 1 parametre 

appel pas bon 

adresse de chargement dans hl1 
valeur de OK dans de 

supprimer le carry 

adresse — OKG dans hl 

valeur de La translation dans de 
adresse table des sSvmboles dans h1 
adresse reelle dans hl 

puis dans ix pour traiter La table 


Sn sn SU sn 24 5x 28 sn sx sn 


JR te 
; traitement de La table des symboles mnt 
ti L.D as Cix+1) 3; test de fin de table 

CF #f+ 

JR 2 tLNL : fin de traitement de La table 

LD a, (i1x+0) 

CF O 

JF nz,sl 5 pas fin de sous-table 

L:D a, Cix+1) 

CP Q 

JR nz,sl "idem 
; fin de sous-table REP AR PO EL EAGLE OT SRE ESPN ARR A CAUSE RL HER LIR LEA GET SPAIN ACER PRET AIRE TRE TE 
INC 1x ; avancer dans la table 

INC 1x 
: traitement d'une sous-table DETAIL FPS TENDANT OO PRIT RE FT ET 
+2 LD 1,(Cix+0) 3; calcul de l'adresse du symbole 

LD h, (1x4+1) : adresse a l'assemblage dans h1 

ADD h1l,de ; adresse reelle dans h1 

L.D b,h 1: puis dans bc 

LD Es 

INC 1x 3 avancer dans la table 

INC 1x 
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5 
s 
5 
S 


hoss ss 


ini 


(A8 30 28 sn “SU 28 sn “Sn css “48 ‘as 82 ss 


Sym 
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traitement d'un element de la sous-table teinte 


LD 1, (ix+0) adresse a l'assemblage dans Nil 


L.D h,Cix+1) 

ADD h1l,de s adresse reelle dans hi 

INC hi 1 Sauter Le code operalion de 1 octet 
LD C1) ,c s decharaqer l'adresse reelle 

INC h1 


LD (h1) ,b 
INC ix 
INC 1x 
JK t1 


avancer dans La table 


fin de traitement 


INC 15% s forcer la nouvelle valeur de HIMEM 
LD (Haeïe) ,ix 5 #ae7h pour le cpc464 
RET 5 au programme basic 


HR HEHOHEOHEHOMEHE DH DOMEDÉOME HD MMEDEDEOMEMEDEDECDEDE MEME HE HE ÉD ME DEEE NEED DOME EE EM 


* * 
# FROGRAMME. DE  DEMONSTKRATION * 
Rene # 


HOHOHOHOMOHMODMOMHE DH OMEDME DEEE DEEE DEEE OMC DEEE EE DEEE DEMO EN 


table de tous les symboles et de leurs references 


DEFW spi : sSous-table spl et ses reterences 


DEFW split 
DEFW © 5 fin de sous-teble 
DEFW Sp# : sSous-table sp et ses references 


DEFW 0 : fin de sous-table 

DEFW sp£ : sous-table Ssp5 et ses references 

DEFW spl 

DEFW Sp? 

DEFW Spi% 

DEFW sp#4 

DEFW © 5 fin de sous-table 

DEFW mesl : Sous-table mesil et ses references 
DEFW mesii 

DEFW © 1 fin de sous-table 

DEFW mes : sSous-table mes? et ses references 
DEFW mes?1 

DEFW © 5 fin de sous-table 

DEFW mes 1: sous-table mes et ses references 

DEFW mesa 

DEFW mesb 

DEFW mesc 

DEFW mesd 

DEFW © s fin de sous-table 

DEFW zone : sSous-table zone et ses references 


DEFW zoneli 
DEFW zone2+1 
DEFW Hff++ 


car code opera LD RC, C0) = # octets 
fin de table des symboles 


rone 


programme source 


CAL.L. 
CAL.L. 


LD 


LD 


CALL 
DINZ 


LE 
1.0 
L.D 
L.DIR 
LD 
CAL.L. 


LD 
CAL.L 
LD 
1.D 
SRI. 
SEL. 
SKL. 
SRI. 
CAL.L 
L.D 
AND 
CALL. 
L.D 
SKL 
SKL. 
SRL. 
SRL. 
CAL.L. 
L.D 
AND 
CALL 


LD 
CALL 
L.D 
LD 
L.D 
INC 
DINZ 


LD 
LD 
L.D 
LDIR 
L.D 
CALL 
RET 


DEFW 


hi 
(zone) ,h1 


#bb 4e 
#bc 14 


A,H#OA 
B,10 
#bb5a 
eti 


hi ,nesi 
de ,mes 


bc ,mes?-mes 1 


b,mes?-mesl+1 


spé 
a "te" 
#bbSa 

be, (zone) 
a, D 

a 


spÆ 
a,C 
HOT 
Sp 


a , #20 
#bbhS5a 
h1l ,mes 


h1 ,mes2 
de ,mes 
be ,mes-mes? 


b,mes?-mesl 
sp 


en assembleur 


recuperation de l'adresse d'exécution 
pe dans hl 


stockage de debut dans zone 
reiniltialisation de l'ecran 
saut de 10 lianes 

etiquette a ne pas translater 
transfert de mesi dans mes 


affichage de mes + 1 blanc 


affichage de l'adresse d'execution 


octet fort 


octet faible 


remise a blanc de mes 


ne pas translater 


transfert de mes? dans mes 


affichage de mes 
retour au basic 


stockage de pc 
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SpÆ 


mesd L.D hi ,mes 
suite L.D as (NL) 
CALL #bbSa 
INC hi] 
DINZ suite 
KRET 
Sp CF #aa 
JA CC ENLT 
ADD a, #7 
CALL #bb5a 
RET 
chif ADD a ,#E0 
CALL #bb5a 
RET 
mes 1 DEFM JE SUIS CHARGE EN 
mes? DEFH ET JE FONCTIONNE 
mes DEFS 40," " 


Text:114685 End:1557% 


Hmem: 28461 


5 affichage du buffer mes 
1 D Odoit contenir la lonqueiur avant 
5 ne pas translater 


» affichage de a 
1 Ne pas Lranslalter 
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NT 


LÉ A POS 


2ë ‘+ * 
36 ‘4 DEMONSTRATION DE TRANGLATION # 
da ‘+ * 
30 ‘+ DE PROGRAMME BINAIRE # 
ëë ‘+4 * 
74 ‘4 D Lebarbier pour C FC +# 
g ‘+ # 
CORRE EEE ETS ETES STE TESTS CSSS 
160 

119 essai de chargement en &abÿé 


120 MEMORY LAG6G:G0SUE 196 

138 

149 ‘ essai de chargement en éB6ûé 

159 MEMORY £6066:GOSUE 196 

168 END 

178 * 

186 ‘ 

198 GOSUB 254 ‘ chargement et translation 

268 LOCATE 3,18:PRINT "HIMEM apres chargement ":HEXS(HIMEM, 4) 
214 GOSUB S76:CALL HIMEM+I ‘ execution du programme 

224 GOSUB 570:RETURN 

238 

24ÿ 

290 MODE 1:PRINT “ ESSAI DE TRANSLATION DE PROGRAMME" 

26% LOCATE 3,12:PRINT"chargement du binaire en “:HEXS$(HIMEM, 4) 
278 crtl=b:nl=33@:RESTORE 340: i=HIMEM+i 
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268 ni=ni+iéiFÜR 1=1 TO 16 ‘ lecture de la ligne ni 
299 READ v$iv=VALICHRE CIS 4vS) 2 PORE 1,vicrti=(ortitvi MOD &8FF 
Fr1=1+] 
368 NEXT JiREAD v$iv=VAL(CHRE CT) +v#i 2 IF vércrti THEN FRINT CH 
R$(7):ni:END 
319 IF 1€HIMEM+36û THEN GOTO 286 
326 CALL HIMEM+I.HIMEM+i ‘ execution de la transiation 
336 RETURN 
346 DATA FE,61,CG,EE, 11,31,75,97,ED,52,EE,21,83,75,19,E5.6839 
356 DATA DD,E1,18,19,DD,7E,91.FE.FF,28,36, DD, 7E,0û,FE, 06, 141 
36% DATA 24,18,DD,7E,61,FE, 06,26, 11,00, 23, 00,23, DD, 6€, 6, édé 
376 DATA DD,66,61,19,44,4D, DD, 23, DD, 23, DD, 6€, 46, DD, 66, 61, ICED 
386 DATA 19,23,71,25,76, 00,23, DD, 23,18,C9,DD,23,DD,22,5E,233 
396 DATA AË,C9,C6,75,BD,75,004,00,34,786,E3,75,2€, 76,00, 00, 29EF 
406 DATA 3F,76,F8,75,FE,75,08,76,10,76,06,00,4F,76,D6, 75, 3664 
418 DATA 60,00,69,76,21,76,06,00,70,76,D9,75, 18,76, 24,76,3533 
428 DATA 34,76,00,06,32,76,04,75,EC,75,FF,FF,CD,C6,75,E1,3E06 
30 DATA 2B,25,28,22,32,76,CD,4E,BB, CD, 14,BC, 3E,04,06,6A,4316 
448 DATA CD, SA,EBE, 18,FE,21,4F,76,11,70,76,01,11,00,ED, E6, 498F 
458 DATA 46,12,CD,34,76,3E,26,CD,5A,BE,ED,48,37,76,78,CE, 5087 
468 DATA 3F,CE,3F,CE,3F,CE,3F,CD,3F,76,78,E6,0F,CD,1F,76,5855 
476 DATA 79,CB,3F,CE,3F,CB,3F,CE, 3F,CD,3F,76,79,E6,0F,CD, 6ÿE3 
488 DATA 3F,76,3E,26,CD, 54, BE, 21, 70,76, 06,28, 77,23, 10,FC. 6683 
498 DATA 21,66,76,11,76,76,61,10,00,ED,B6,66, 11,CD, 34,76, 6BAD 
596 DATA C9,66,06,21,76,76,7E,CD, SA, BE, 23, 14,F9,C9,FE, 04, 0209 
919 DATA 38,96,C6,37,CD, 54, BB, C9, C6, 36, CD, SA, BB, C9, 4A, 45, 0AEF 
329 DATA 29,53,55,49,53,26,43,48,41,52,47,45,26,45,4€,45,6F15 
20 DATA 54,24,4A,45,26,46,4F,4E,43,54,49,4F,4E,4E,45,20, 1348 
949 DATA 24,26,20,26,26, 20,26, 20,26, 26,20, 20,20, 26, 20,26,154B 
998 DATA 29,26, 26,26, 20,20,20, 20, 20,20, 20,20, 26,20,26, 26, 174E 
969 DATA 24,26,20,26,26,26,20,38,2C,3A,00,135,30,31,31,36,19C0 
9/8 LOCATE 12,25:FRINT “< UNE TOUCHE >":CALL &BBG6: RETURN @ 
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LE PREMIER ÉDITEUR DE LOGICIELS UTILITAIRES 


NOUVEAUTÉ 


ZENITH : La capacité de stockage des 
disquettes 3 pouces est au maximum de 
178 Ko. Il est donc difficile de stocker plus 
de 4 programmes par faces. Ce pro- 
gramme de compactage réduit les pages 
de présentation ainsi que les program- 
mes (Basic ou Binaire) er un minimum de 
place. Par exemple si vous possédez un 
fichier organisé comme suit: 


LOADER-BAS  1K E ECRAN-BIN 3K 
ECRANBIN  17K—+ | N JEUX-BIN 10K 
JEUX-BIN 42 K M 


Le loader-bas aura disparu et vous 
aurez gagné 47 Ko de place libre sur 
votre disquette. 


ZENITH : DISC : 250 F TTC 
NOUVEAUTÉ 


L’'INTERPRETE : La majorité des 

logiciels existants sont dans la langue de 

Shakespeare, et l'utilisation n'en est que 

plus difficile (Utilitaires - Jeux d'aventures 

Jeux..). Ce programme vous permet de 

traduire en français ou en toute autre 

langue vos logiciels préférés. La démar- 

che est automatique et ne requiert au- 

tune connaissance particulière. 

- Mapping du disque 

- Edition des secteurs 

- Acceptation de jokers 

- Traduit plus de 500 mots à la fois 

- Repère automatiquement sur la 
disquette les textes à traduire 


L’INTERPRETE : 
DISC : 290,00 F TTC 


NOUVEAUTÉ 
TRANSLOCK IN permet de récu- 


pérer les programmes et les présenta- 
tions avec leurs encres respectives. La 
relocation est automatique, et tous les 
renseignements nécessaires sont affichés 
en permanence à l'écran. 


TRANSLOCK II : 
DISC : 225,00 F TTC 


Label zeni-qualité : 
_ ÉCHOSOPFT : DISC 395 F TTC 


Numéro 1 au hit parade des utilitaires : 


———— NOUVEAUTÉ 


BOURSE 2000 


QUAND ACHETER, 
VENDRE, PRENDRE 
DES BENEFICES ? 


Bourse 2000 répond à ces questions et 
à bien d'autres encore avec des instru- 
ments empruntés aux milieux financiers 
les plus cotés (moyennes mobiles, points 
et figures, tableaux, graphiques...). 
Bourse 2000 est livré avec un fichier de 
40 valeurs et leurs cotations depuis 
1985. 

Bourse 2000 est un logiciel évolutif ; 
VOUS pourrez vous procurer les cotations 
de n'importe quelle valeur sur 2 années 
et plus à ESAT software {listing 20 F, 
disc 50 F). 

Bourse 2000 permet de visualiser la 
tendance d'une valeur (hausse, baisse, 
stagnation) et de situer les moments 
d'intervention (achats, ventes...) 


Clubs et associations : contactez ESAT 
software pour des tarifs préférentiels. 


BOURSE 2000 : 
- AMSTRAD CPC 6128 
seulement : _____ 450,00 F 
- AMSTRAD PCW 8256-8512 
(disponible en août) :_ 750,00 F 
- Compatibles PC-XT (disponible en 


août) : __ 1200,00 F 
- ATARI 520-1040 ST (disponible en 
août) : 990,00 F 


ET TOUJOURS : 


HERCULE : Disc 250 F TTC 
- Le complément de HERCULE {ver- 
sion 3,0 ou 4,0) est disponible contre 


80 F + 20 F de port. 


lo 


| Nom : 
Adresse : 


Logiciels commandés : 


NOTRE CATALOGUE EST DISPONIBLE CHEZ | 
VOTRE REVENDEUR OU CHEZ ESAT CONTRE 20 F 


EN TIMBRES (Remboursés à la première 


commande). 


IMPRESSION : Programmation 

avancée de l'inprimante - 65 comman- 

ces RFX disponibles. 

IMPRESSION : Coss : 200,00 F 
Disc : 220,00 F 


TAPE LEADER : ce logiciel duplique 
vos bandes magnétiques avec un choix 
de 10 vitesses de sauvegardes. Durant la 
duplication, les renseignements sont affi- 
chés sur l'écran. 

CASS : 175 F TTC 

DISC : 205 F TTC 


VIEW TEXT : CASS 135 F TTC 


ET NOS ACCESSOIRES : 


STYLO OPTIQUE : 6128:415F 
8256:830F 
PC:990F 
SCANNER : 890 F 
TUNER TV : 1500 F 
MULTIFACE II : 600 F 


Notre SOFT PSYCHOTEST : 
DISC : 135 F TTC 
CASS : 100 F TTC 


PROMOTION : 
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Prénom : 


a 


-suoneai9 QWVZI 


££ S6 8€ 66 


Si vous souhaitez que le 


dieux des pyramides, 


dessiné avec tant de soin, 


puisse tourner sa tête 


d'oiseau au passage des 


explorateurs, il faut que 


vous lui en donniez les 


moyens. En redessinant la 
tête ? Ah non, c’est trop 


long ! Il existe un meilleur 


moyen : la routine des 


symétries de précision que 
voici. 
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Commencez, tout d'abord (et comme 
toujours) par la saisie de la routine, soit 
en utilisant un assembleur, après avoir 
édité le listing source, soit par la méthode 
directe des DATAS. Quelque soit la ma- 
nière, la routine exécutable doit être sau- 
vegardée sous la forme binaire: SAVE 
‘’SYM2"',b,&A000,&A2D1. Bien enten- 
du, vous pouvez lui donner un autre 
nom. 

La routine occupant la zone de mémoire 
située entre &AO00 et &A2D1, vous 
prendrez la précaution de limiter la mé- 
moire utilisée par BASIC par MEMORY 
&9FFF. 

Les utilisateurs d'un CPC 464 prendront 
soin de modifier les adresses des deux 
Variables système : MODE et GRAPEN, 
comme il est indiqué dans le listing 
source. Les adresses des points d'entrée 
des routines de la ROM sont identiques 
pour les trois CPC et après la modifica- 
tion signalée, tout doit fonctionner 
normalement. 


Voyons maintenant les modalités d'em- 
ploi de la routine. La routine peut être 
lancée soit en mode direct, soit à partir 
d'un programme. Auparavant, elle doit 
être chargée en mémoire par LOAD 
‘’SYM2.BIN'’. Le dessin dont vous dé- 
sirez inverser une partie (ou la totalité) 
doit être affiché à l'écran courant. Les 
coordonnées des deux points indispensa- 
bles pour la définition de la fenêtre 
doivent être déterminées avec précision. 
Il s'agit de l'angle inférieur gauche et de 
l'angle supérieur droit de la fenêtre. Cette 
fenêtre n'a rien à voir avec la fenêtre gra- 
phique au sens de l'instruction ‘ORIGIN’ 
du BASIC. Néanmoins, vous devez tenir 
compte de toutes les influences que 
cette instruction peut provoquer si elle 
est utilisée avant notre routine. Il s'agit 
principalement du décalage de l'origine 
des coordonnées graphiques et de la limi- 
tation de la zone de travail au maximum 
à la fenêtre définie par ‘ORIGIN’. Bien 
entendu, l'emprise de notre routine peut 
être la même, mais aussi plus petite et 
tout à fait quelconque. Pour faire la dis- 


.tinction entre la fenêtre graphique du 


BASIC et la nôtre, nous allons, dans ce 
qui suit, donner à cette dernière un autre 
nom : la zone de travail. 


Examinez de près le listing du program- 
me des démonstrations et comparez les 
dimensions des fenêtres fixées par ‘’ORI- 
GIN'' avec celles définies par les pararnè- 
tres transmis par CALL. Dans la première 
partie du programme, {lignes 130 à 150 
et ligne 200), les deux ont la même taille 
et leurs limites sont confondues. Dans la 
deuxième partie, (lignes 250 et 330), 


FENETRES SYMETRIQUES 


notre zone est plus petite et inscrite dans 
la fenêtre graphique. 

Si l'instruction ‘'ORIGIN’’ n'a pas été 
utilisée avant l'emploi de notre routine, 
on dispose de la totalité de l'écran. Tout 
ce qui est affiché sera inversé, aussi bien 
le texte que le dessin et ceci quel que soit 
le mode de l'écran. 


Mais, voyons d'abord la transmission des 
paramètres. On serait tenté d'utiliser les 
variables système de l'instruction ‘’ORI- 


GIN'”". Hélas, la routine de la ROM qui 
traite cette instruction arrondit les abscis- 
ses de façon à occuper une zone dont 
le nombre d'octets de la mémoire écran 
sera un nombre entier. En clair, la largeur 
de la fenêtre graphique sera toujours un 
multiple de huit points. Ce n'est pas ce 
que nous désirons. Notre routine peut 
avoir des dimensions quelconques à un 
point près. D'autre part, il est plus aisé 
de pouvoir travailler n'importe où sur 
l'écran en fixant ses propres limites. Pour 
cela, chaque premier appel à la symétrie 
d'une même zone sera accompagné des 
paramètres et du numéro de l'option : 
CALL &AO00, X1,Y1,X2,Y2,0PTION. 
X1 et Y1 sont les coordonnées de l'an- 
gle inférieur gauche et X2 et Y2 les coor- 
données de l'angle supérieur droit de la 
zone de travail. Tous les appels suivants 
concernant la même zone peuvent se 
passer de transmission des paramètres 
(sauf OPTION qui peut être différente), 
à condition qu'une autre zone ne soit pas 
définie entre temps. l'appel se limite dans 
ce cas à CALL &AO5A,OPTION. On voit 
que l'adresse d'entrée n'est pas la 
même. 


Examinez les lignes 330 à 350 du pro- 
gramme de démonstration qui donnent 
l'exemple de l'utilisation successive des 
trois types de symétrie pour une même 
zone. Puisque nous en parlons, le para- 
mètre OPTION correspond justement au 
type choisi : 


O = Symétrie polaire 
1 = Symétrie par rapport à l'axe X 
2 = Symétrie par rapport à l'axe Y 


En effectuant deux fois le même type de 
symétrie pour une même zone, ou en 
effectuant successivement les trois 
types, toujours pour la même zone, on 
obtient le dessin d'origine. C'est un 
excellent test pour notre routine. C'est 
ce qui fait la deuxième partie du program- 
me de démonstration. || est donc facile 


Fenêtre symétrique selon Y 


de récupérer le dessin d'origine en cas 
de mauvais cadrage où autre. || suffit 
pour cela de redéfinir la même zone et 
de refaire soit le même type de symétrie 
soit le ou les types complémentaires. 
Vous aurez une autre précaution à 
prendre avant d'utiliser cette routine. 
Assurez-vous que le mode d'encre en 
cours n'est pas autre que le mode O 
(normal). Si vous venez d'utiliser un autre 
mode, 1,2 ou 3 (XOR, AND,OR), revenez 
au mode normal par ‘‘PLOT 640,400,, 
0'', avant le CALL. Ici, le numéro de 
l'encre a été omis, mais vous pouvez 
profiter de l'occasion pour le changer. 
Examinez les lignes du programme de 
démonstration, vous en trouverez 
l'exemple, ligne 290. Ceci est valable 
uniquement pour les machines possé- 
dant le mode d'encre et le programme de 
démonstration, sous sa forme actuelle, 
ne pourra tourner que sur celles-ci. Les 
principes décrits restent néanmoins 
valables et pour adapter le programme 
pour un CPC 464, il suffit de très peu de 
modifications : 


— Ligne 130 
Modifiez ‘‘d = 3’ en ‘“‘d = 0" 


— Ligne 150 
Modifiez ‘‘d = 1” 
— Ligne 160 
Remplacez ‘’PLOT 640,400,1,0" par 
‘’PLOT 640,400,1 

— Ligne 170 

Remplacez la ligne par DRAW 96,i,p: 
NEXT i:IF d = 2 THEN GOTO 200 

— Ligne 190 

Remplacez la ligne par DRAW :i,96,p: 
NEXT i:PRINT ‘‘symétrie:'"; 

— Ligne 270 

Remplacez la ligne par p = RMD*8: 
DRAW 639,i,p:NEXT i 

— Ligne 290 

Remplacez la ligne par p = RND*8: 
DRAWi,399,p:NEXT i:PLOT 640,0,3-m 


en “d = 0” 


Bien entendu, les ‘’OR, AND et XOR'' 
affichés au cours de l'exécution n'auront 
plus aucune signification. Les dessins 
obtenus seront moins spectaculaires, 
mais la démonstration sera peut-être plus 
évidente. Je conseille au CPC-istes 6128 
et 664 de faire tourner aussi le program- 
me ainsi modifié. 


Signalons aussi que le centre de la symé- 
trie polaire correspond au centre de la 
zone de travail et que les axes des symé- 
tries X et Ÿ passent par ce centre. L'ima- 
ge de départ et l'image symétrique occu- 
pent donc la même place : l'emprise de 
zone de travail. 

Bonnes symétries à tout le monde ! 


196  FROGRAMME DE DEMONSTRATION DE LA ROUTINE “ FENET : 


RES SYMETRIQUES " 


119 MEMORY %9FFF: LOAD'sym2.bin" ‘CFC 6128 - 664 
115 FOR m=2 TO à STEP -1:S=3:G0SUB 129: NEXT m:GOTO 246 : 


120 MODE m:HINDOW 1,86,1,6:PRINT'"mode “5m ; 
130 ORIGIN 119,95,119,215,95,191:PRINT" OR, "s:d=3:G06U PF 


B iéë 


149 ORIGIN 273,95,273,365,95,191:PRINT"AND, “s:d=2:608Ù > 


E 166 


156 ORIGIN 447,95,447,543,95,191:PRINT'XOR, "ss d=1:G0SU :R 


B 16ü:CLS:RETURN 


166 PLOT 646,408,1,6:F0R 1=û TO 96 STEP 1: MOVE 6,1:p=i/ 


19,333335; 


170 GRAPHICS PEN p:DRAW 96, i,p:NEXT i 
180 FOR i = 0 TO 96 STEP 1:MOVE i,dip=i/10.3333333 > 
196 GRAPHICS PEN p:DRAN i,96,,diNEXT i:PLOT 640,400, ,0: > 


PRINT * symetrie:"; 


260 S=S-1:0N 3-5 GOSUB 210,220, 230:CALL 8A609,0,0,96,96 : 


52 RETURN 

219 PRINT" Y":RETURN 
220 PRINT": RETURN 
230 PRINT"O":RETURN 


249 FOR m=2 T0 à STEP -1:MODE m:PRINT “mode ";m 
250 ORIGIN 0,0,0,639,0, 300:WINDOW 1,80, 1, 10 

260 FOR i = 6 TO 399 STEP (3-m)*(2-m):MOVE 0, i 

270 GRAPHICS PEN RND#B:DRAW 639, i:NEXT i 

280 FOR i = 0 TO 639 STEP (3-m)*(2-m):MOVE i,0 

290 GRAPHICS PEN RND#B:DRAN i,399,,1:NEXT i:PLOT 640,6, > 


3-m,9 


319 TAG:MOVE 225, 170:PRINT"SORACOM"; dREX 
320 MOVE 320, 120:PRINT "CPC": : TAGOFF SAF< 
320 PRINT'Symetrie D +":CALL LAG0O, 200, 100,440,200,0  >DGX 


*AF < 


349 PRINT"Symetrie X +":CALL BAOSA, 1 2HH 
359 PRINT'Symetrie-Ÿ =":CALL &AGSA,2 FX 
360 FRINT"Dessin d'origine":FOR i = 1 TO 1069:NEXT i:NE ?GK< 


XT m:END 
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DISCOLOGY “°° 


La performance au service de votre Amstrad. 
Editeur+  Copieur<+ Exploreur+- d& 


jen: AU ad! 
Ultra rapide : 150 Ko de Langage Machine, Melle vor votre Ana 
Fenêtres, Menus déroulants, Aide intégrée, ail 
Manuel de 24 pages + Additif technique. porpommatt? 

À : Fe ss Un Editeur secteur unique qui vous 
L'EDITEURE Re 


qu'elle soit protégée ou non. 


Quatre modes d'édition combinant Ascii, hexa, décimal, octal, binaire. 


Des capacités exceptionnelles que vous pouvez exploiter immédiatement : 
e Désassemblage direct des programmes en Langage Machine 
e Listage automatique des programmes Basic 
e Les outils de bureau : ciseaux, colle, calculatrice mathématique 


Toutes les possibilités à La portée du débutant comme de l'expert : 
(: Récupérer une disquette endomagée ou un programme effacé 


e Explorer un directory, le reparer, le modifier 
e Localiser des fichiers, les cacher, les visualiser, Les modifier 


Enfin la copie de sauvegarde pour toutes vos 
P garde pour Les 
coPI disquettes (et cassettes) protégées où pas. 
LE Comme l'Editeur, il reconnait 99 pistes, toutes 


Les densites d'écriture, les pistes déformatées, les : 
secteurs non standard, effacés ou de taille anormale. : : sg. | 
SR « + mm: 


La copl \us puissante ! Des performances inédites à votre service : 


encore P e Réparation automatique des secteurs endomagés Ris 15 
e Gestion automatique des extensions mémoire ; 
e Une fonction catalogue qui permet de copier des # t 
fichiers séparément sur cassette où disquette. 


Voyage au centre de la disquette... 
ORE U R L'Exploreur de Discology fournit toutes 
L° EXPL les informations sur la disquette : 


H 
Formatage, densité d'écriture, caractéristiques des ‘ -{- 
ÿ U secteurs, secteurs plantés", plan d'occcupation des : HN 
NOU vrez les pistes fichiers sur la disquette. 
écou S 
De S disau tte Un outil passionnant pour découvrir tous les 


secrets de vos disquettes et du controleur disque. 


ri 
HE 
HI 1 
(HEIN 
HN M 
‘EN 
4 

FERA X 


4 


Pour tous les ‘'cracks'" de l'Amstrad et ceux qui 
veulent le devenir. 


Discology est disponible sur disquette pour Amstrad CPC chez tous les très bons revendeurs. Vous pouvez aussi le commander 
direftement [sans frais de port jSupplémentaires à : MERIDIEN INFORMATIQUE, 5 et 7, La Canebière - 13001 Marseille. 

e Master Save est toujours dislünible au prix de 190 F. Ili reprend les caractéristiques du Copieur de Disquette de Discology 
e Si vous désirez recevoir Discology et que vous possédez déja Master Save, vous ne payez que la différence. 


RS 
© JE DESIRE RECEVOIR DISCOLOGY AU PRIX DE 350 F NERSIOY 


O JE DESIRE RECEVOIR MASTER SAVE AU PRIX DE 190 F 30 


O JE POSSEDE DEJA MASTER SAVE ET JE DESIRE RECEVOIR DISCOLOGY. JE JOINS MA DISQUETTE MASTER SAVE ET JE NE PAYE QUE 160 F 


MON REGLEMENT :  Q CHEQUE QUE JE JOINS (LE PORT EST GRATUIT) © CONTRE REMBOURSEMENT (J'AJOUTE 25 F DE FRAIS DE PORT) 


NOM : h | __ PRENOM : 
ADRESSE : 


CODE POSTAL : VILLE : TEL (facultatif) : 


A retourner à : MERIDIEN INFORMATIQUE, 5 et 7, La Canebière - 13001 Marseille. 


UTILITAIRE 


GRAPHIQUES 


E Thierry BAS 


Cet utilitaire vous ouvre les portes 
dorées de la représentation graphi- 
que de données. A vous les histo- 
grammes de vos gains au loto, les 
demi-camemberts de votre porte- 
feuille d'actions ou les lignes brisées 
de votre salaire mensuel. 

Il ne restera plus qu'à intégrer une 
routine de hard-copy graphique pour 
immortaliser vos chefs-d'œuvre. 
(voir CPC 19, p.80) 


UE TT. 1 111122 SELESESELEÉEEEELESSSESLEE SES, 
24 #44 graphiques par HAINE 
EG ‘ #44 thierñv.bas PTIT SSII ILES LESC ES SÉSÉSESEES 
6 #44 | AA EEE 
50 ‘ #44 PAT TT TT IST I SSSSS CESSE SEE 
UT 1 2 ISLE EESEEESSSE ESS EEE 


76 DIM don(i2}, leg$ (12) ,NDON (12) ,FdON (24) ,FLEG# (24) .FmD :VH: 


ON (24: 

86 CLS:PAFER G:FEN 1: BORDER 3:MODE 1 
Gé LOCATE 18,2:PRINT CHR$ (24): "MENU": CHRS (24: 
190 LOCATE 12,8:FRINT CHR#(24) ; "1": CHR$ (24): 


barre" 
119 LOCATE 12,1@:FRINT CHR$ (24): "2%:CHR# (24): " Graphiqu : 
e‘cam" 


124 LOCATE 12,12:PRINT CHR$(24): "3": CHR 24" 
e ligne" 

134 LOCATE 12,14:FRINT 
149 LOCATE 3,26 


CHRY (24) “4 CHRE CIE Fin 


e votre choix":CHR#i24) 

154 IF INKEY(13)=6 THEN CLEAR INFUT:GOTO 220 

1 IF INKEY(14)=4 THEN CLEAR INFUT:GOTO 1286 
176 IF INÉEY(S)=0 THEN CLEAR INFUT:607T0 198û 

186 IF INKEY(20)=4 THEN CLEAR INFUT:GOTO 3466 
194 GOTO 154 

26% CLS 


214 MODE Z:LIST 86-206 
226 FAS=6 
230 CLS:PAPER O:FEN 1:BORDER Z:MODE 1: leg$="": leqm$="" 


249 LOCATE 13,3:PRINT'GRAPHIQUE BARRE" 


256 LOCATE 14,20:PRINT CHR$ (24): "touche espace": CHR$ (24 E 


} 
260 IF INKEY(47)=6 THEN 276 ELSE GOTD 264 


98 


“ Graphique : 


Graphiqu : 


G:FRINT CHR# (24: "Appuyez sur la touche d : 


:ED< 


}CE< 


* 


274 CLEAR INPUT: MODE 2 3CRX 
284 LOCATE i,1:INPUT'titre (18 maxi)":titres #AL£ 

290 I=LEN(titreti:IF 121 OR 1:14 THEN 306 ELSE 314 LME 
366 LOCATE 1,1:FRINT" 6D< 
“:GOTO 266 

314 TITRES=UFFERS (TITRES) *QE*< 
324 LOCATE j,1:FRINT" #WP< 

"eLOCATE 1,1: PRINT'titre: “ititred 

336 LOCATE 1,2: INPUT'SOUS-TITRE (16 MAXI) “:STITRES 3VG< 
344 LS=LEN(STITRES) : IF LS:14 THEN 356 ELSE Z6ÿ 2MH£ 

35% LOCATE 1,Z:FRINT" #JJ{ 

“:607T0 334 
264 STITRES=LONERS (STITRES) AL 
378 LOCATE 1,2:FRINT" #BL< 
MeLOCATE 1,Z:FRINT "SOUS-TITRE: “iSTIT 

RES 

384 LOCATE 1,3: INFUT'NOMBRE DE COLONNES: (17) ":C0L #0: 

298 IF COL) OR COL:12 THEN 466 ELSE GOTO 414 #RN€ 
46ÿ LOCATE 1,3:FRINT" “":GOTO LES 
384 

41@ LOCATE 1,3:FRINT" Me COLS ©MF< 

=“COLONNES":IF COL=i THEN COL$="COLONNE" 

42à LOCATE 1,Z3:FRINT COL$s": “COL EG 

424 LOCATE 1,4: INPUT'LEGENDE HORIZONTALE: Une pour toute :CH< 
les donneesiune pour chaque donnee (i,2)":chl 

448 IF chl£;i AND chl£:2 THEN 456 ELSE 466 #BJ< 
456 LOCATE 1,4:FRINT" 2NÉ< 

“:60T0 436 

468 ON chl GOTO 474,526 TL 
78 LM 
48à LOCATE i.4:PRINT" #QN< 


“eLOCATE 1,4: INPUT" legende pour to 


utes ies donnees (26 max}: "1: legmé 
496 lieg=LENieagnti:IF 1LEG:6 GR 1LEG:28 THEN LOCATE 1, 
SPRINT" 


AA 


gg LOCATE 1,4: PRINT" 
fi LEGMEUFF 
ERS LEGME) :LOCATE 1,4: PRINT "Legende: “:legté 
Si GOTO 664 
328 LOCATE 1,4: FRINT" 


FiLOCATE 1,4:FRINT' legende pour € 
haque donnee" 
334 X=28 


944 FOR I=i TO COL 


398 LOCATE 1,5:PRINT'ENTREZ LA LEGENDE “sis: INPUT: LEE$ à 


(Ii 

264 LESLEN(LEGS (IH iF LGssi THEN LOCATE 1,5:PRINT" 
“:G0TO 

330 


576 LOCATE 1,5:FRINT 

li LEGS (TI 2UPPERS (LEGSCI)):LOCATE I+k, 4: PRINT LEG$(I):" 
RCA 
54 NEËT 

SEC 
Ebé ‘ 

&ié 
bià LOCATE 1.6: FRINT'valeur pour chaque colonne" 
&3ë pla=i:piiss 
649 FOR 1=1 TO col 

ë54 LOCATE 1,7:PRINT' valeur No "sis: INPUT: dontfi 
£&ÿ LOCATE i,7:FRINT ù 
674 LOCATE pla,pli: PRINT USING"########## "0: donili 
686 IF pla:74 THEN pla=iipli=pliti 

698 pla=platsà 


764 IF Ii THEN 726 
714 ZX=DON (1): ZV=DON (1) 
724 IF DON(TH:2X THEN ZX=DON(T: 


73% IF DON(I)£2Y THEN 
74@ NEXT 


F5 2u=CTRE (In sax EN(zx$is lv=lix- 


IY=DON(T) 


768 


F lvzi THEN lvd=iéé ELSE IF iv=3 THEN lvd=1966 ELSE IF 


IF lyi=à THEN lvd=i ELSE IF lv=i THEN ivd=ié ELSE I :6F 


FUF< 


FF 


3XNE 


174 ‘calculs 

786 platitre=344-((1/2}#16} 

198 piasouti=i4é-(ils/23)4ié) 

Eûé plaleah=344-((1leg/2)4i6) 

818 MODE Î: dessin du graphique 

826 TAG 

834 MOVE platitre.SYB:PRINT titreé:: MOVE piasouti,384:P :Jt 


RINT stitrek: 


844 MOVE pialegn. 16: PRINT legm$::G0TD 866 
B54 EXT 


Béë TAGOFF 

E7à GOSUE 1196 
284 
H 46,26 


FLOT 46,26: DR8Û 638,20: DRAN 628,366: DRAN 48,366: DRA 


+: 


es=é:mi=é 


964 IF col=i THEN es=3i5 
916 IF col=2 THEN es=535-36 
924 IF col=5 THEN es=271 
938 IF col=4 THEN es=515-84 
944 IF col=5 THEN es=223 
99% IF col=é THEN es=535-132 
964 IF col=7 THEN es=i75 
976 IF coi=8 THEN es=535-188 


S8é IF coi=5 THEN es=i5s 
994 IF coi=ié THEN e5=535-228 

1964 IF coi=ii THEN es5=79 

1819 IF coi =12 THEN es5=335-276 
1926 FOR i=1 TO coi 

1938 NDON(I)=INT (DON(Ii#306/7K)+44 
1446 PLOT es, 24: DRAN es, NDON(I) :DRAN ES+24, NDON(T) : ERA HF 4 
ES+24,74:DRAW ES,24 
1850 PLOT ES+24,24:DROW ES+33,32: DRAM ES+32,NOON(TI+8:D ÂGé 
RâW ES+B.NDON (I) +8: DRAW ES, NDDN(T} 

1960 PLOT ES+32,NDON(I)+8: DRAM ES+24.NDON (D) 
1876 FOR COUL=0 TD 24 

1684 FLOT ES+COUL, 34: DRAW ES+COUL, NEON(T: 

1496 IF chi=i THEN GOTO 1146 

1196 plasieh=estB 

1118 TAG 

1126 MOVE plasleh,i6:FRINT jea$(li: 

1136 TAGOFF 

ii4ë piaslegh=plasiegh+4s 

1154 NEXT 

1iéÿ es-es+4f 

1174 NEXT 

iigè IF INÉEY(38)=6 THEN RUN ELSE GOTO 1184 
1194 TAG 

1200 MOVE -18,3%:PRINT INT(G}: 

1218 MOVE -14,364: PRINT INT(ZK/LYD}: 

12230 MOVE -14,210:PRINT INTI(ZK/2}/LYDis 

1236 MOVE -16,285:PRINT INT((ZX-(2X/4))/LYDI: 
1244 MOVE -10,126:PRINT INT((ZK/4)/LYDI: 

1258 TAGOFF 

1266 LOCATE 1,1:FPRINT'1X":LOCATE 3.1: PRINT iyd 
1276 RETURN 

1284 PAPER G:PEN Ïi:BORDER Z:MODE 1 

1294 LOCATE 14,3:FRINT'GRAFHIQUE CAM" ; 
1304 LOCATE 14,26:PRINT CHR$(24): "touche espace": CHR$(Z AE“ 
à 

1319 IF INKEY(47)=6 THEN 1326 ELSE GOTO 1314 

328 CLEAR INFUT:CLS 

1336 DIM F(26),D(31: 
1348 CLS:MODE 2 

1354 LOCATE 1i,i:INPUT'entrez le titre (26i";titres 
1360 ititre=LENttitreti:IF Ititre:26 DR ltitreii THEN 
CLS:G0T0 1354 
1376 LOCATE 1,i:FRINT" 


“titres 
2UFFERS (titre$):LOCATE j,1:PRINT “titre s'ititref 


d de LOCATE 1,2: INAUT'entrez le soustitre (26) ";stitres AN‘ 


13596 Istitre=LENlstitre$i:IF lstitrer24 THEN LOCATE 1,2 :XP< 


PRINT" 

“:60T0 1386 
1464 LOCATE 1,2:PRINT" ; 
"sLOCATE j 
2:PRINT'soustitre :“:LOWER$(stitreé) 
1414 LOCATE 1.3:INFUT'entrez la legende (26)";leg$ 
1428 lieg=LEN(leg$):IF 1leg:zà THEN LOCATE 1,3: FRINT" 


“:GOTO 1416 
1439 LOCATE 1,3: PRINT" 
“:LOCATE 


1,3:PRINT" legende :":UPPERS (leg$) 


1449 LOCATE 1,4: INPUT'combien avez vous de #tage (29): %LK< 


a 
1456 IF 4:26 OR A£i THEN LOCATE 1,4: PRINT" 


“:GOTO 1444 
14&é LOCATE 1,4: PRINT" 
"sLOCATE 1, 
A: PRINT 'Atage=": a 
1474 total=t 
1486 FOR k=1 TO a 
149% LOCATE 1,6:FRINT'entrez le "sk" {tage"::INEUT:pEi 


1568 LOCATE 1,6:PRINT" ! 
1518 total=total+p(k} 

1528 LOCATE 1,26:PRINT'"le total XTAGE ne doit pas etre 
superieur ni inferieur à 166%":LOCATE 65, 36:PRINT USING 
CHAR He TOTAL 

1536 d(kH)=(P(K)#186) /10ù 

1548 NEXT k 

1556 IF total:196 THEN SOUND 1,266:LOCATE 1,24: PRINT" 


“LOCATE 1,24:PRINT' total étage : 
199 ":F0R temps=i TO 1S06:NEXT:LOCATE 1,26: PRINT" 
“:GOTO 1474 
1568 IF total{164 THEN SOUND 1,266@:LOCATE 1,26: PRINT" 


?CN£ 


“iLOCATE 1,26: PRINT" total Âtage 
160 ":FÜR temps=i TO ISOG:NEXT:LOCATE 1,26: PRINT" 
":G0T0 1476 
1576 MODE 1 
1584 PLOT 1,1:DRAM 1,399:DRAW 637.399:DRAH 639,1: DRAM 
1.1 
1598 LOCATE 24-(LTITRE/2),1:FRINT TITRES 
168 LOCATE 26-(LSTITRE/2), 3: PRINT STITRES 
1619 LOCATE 24-(LLEG/2),23:PRINT UFFERS (lagé) 
1624 DEG 
1636 w=27à 
1649 FLOT 326+2004S1IN (270), 144+260#C05 (276) : DRAW 328, 16 
( 
1698 PLOT 324+2606+51N (276), 160+266#C05 (276) 
1666 FOR k=i TO a 
1676 FOR i=w TO w+d(k) 
1688 DRAM 326+2064GIN(1;,106+206#C05 (1) 
1698 NEXT 
1769 IF i:454 THEN GOTO 1746 
1719 FLOT 226,100:DRAN 226+20846IN (1), 166+2064C06 (1),1: BK< 


100 


>GH£ 


PJ 


“LIGNE DE FIN 
1724 w=utdiE) 
1724 NEXT 


1746 PLOT 232,100: DRAW 226+20045IN (450), 160426004008 1456 


} 
1756 w=278 
1768 FOR coui=i TO a STEF 2 


1778 MOVE 326+1004SIN + (D(COUL) 7233, 100+ 1004005 (+ iDiC JR 


QUL}/2)):FILL 2 

1788 W=W+D COUL : +0 (COUL+i: 
179% NEXT 

1896 W=274 
1514 va=226 
1824 FOR E=1 TD À 

1836 TAG 

1844 IF wtdik):36û THEN va=va-2 


(ra 


1858 MOVE 226+vaxSIN(W+D (E) /21, 106+va#COS (H+D(E)/2):PRT à 


NT CHR$(b4+E) : 

1866 TAGOFF 

1876 W=W+D(E) 

1884 NEXT 

1896 TAG 

1966 vv=3686:nn=38 

1916 FOR 1=i TO a 

1926 IF 1:16 THEN nn=35à 

1924 MOVE nn vv:FRINT CHR#(éd+iis"="ipltils 
1944 vv=vv-ié 

1954 IF i=16 THEN vv=188 

1966 NEXT 

1976 IF INKEY(28)=6 THEN RUN ELSE GOTO 1976 
1584 ‘ligne 


199% CLEAR INFUT:MODE 1:LOCATE 13.3: PRINT'GRAPHIQUE LIS 3x4: 


NE" 


2006 LOCATE 14.28:PRINT CHR$ (24): "touche espace": CHRS(E C0: 


4) 

2016 IF INKEY(47)=û THEN 2026 ELSE GOTO 2010 

2020 CLEAR INPUT: MODE 2 

20% LOCATE 1,1: INPUT"entrez le titre (10) ":TITRES 


2649 LTITRE=LENCTITRES): IF LTITRES1 OR LTITRE:19 THEN L 


OCATE 1,1:PRINT" : 
:GOTO 2656 
2950 TITRES=UPFERS (TITRES) 
2964 LOCATE 1,1:FRINT" 
“YLOCATE 1,1: PRINT “titre: ":TITRES 


2878 LOCATE 1,2:INFUT"entrez le soustitre (16) *3;STITRES TK: 


2084 LSTITRE=LEN(STITRES): IF LSTITRE:16 THEN LOCATE 1,2 


PRINT" 
“:G0TO 2474 
2696 stitret=LOWERS(stitre#h:LOCATE L,ZiFRINT © 


M!) OCATE 1.2: FRINT"soustitre: ‘istitres 


2186 LOCATE 1,3: INPUT ‘combien avez vous de Xtage (min £ #f 


max 2di":col 
2iié IF coli OR col :#4 THEN LOCATE Î,3: PRINT" 


“6070 2168 


2124 LOCATE i,3: PRINT" 


:LOCATE i,3: PRINT Xtage=";col 
2136 LOCATE 1,4: INFUT"voulez vous une legende pour tout : 
es jes donnees ou une pour chaque donnee (i/2i"ico 
2146 IF coi OR co:£ THEN LOCATE 1,4:PRINT" 


“:GÛTG 2156 


2194 LOCATE 1,4: FRINT" 


2166 ON co EOTC 2174 ,2224 
2176 LOCATE 1.4: 


E 1,4: PRINT" 


2196 Leant=UPPERS (Lean) 
2206 LOCATE 1.4: FRINT" 


1,4: PRINT“ iegende: ‘:iegm$ 


2216 GOTO 2314 
2224 ? LOCATE 1,4: PRINT" legende: " 


2249 FOR 1=i TG coi 
2854 LOCATE 1,26:FRINT'entrez le legende “:1::INPUT fie :KK< 


g$lii 


2266 1fleg=LEN(fleg#(l})1:1F lflegii OR lfleg:i THEN SOU : 
ND 1,206: LOCATE 1,26: PRINT" 


2284 fleg$(l)=UFFER$ iflegé(l)) 


":60T0 2254 
2276 LOCATE 1,26:PRINT" 


“:G60TÛ 


INFUT® entrez ia iegenoe (i8}":leamé 
2189 ilegm=LEN(legm#):1F llegmii OR llegm:ié THEN LOCAT 


“iLOCATE 


2290 LOCATE- i6+plax, diFRINT fleg$(lis", iplax=piax+z 


2500 


NEXT 


2318 pla =i :pli=ë 
2326 FOR 1=1 T0 col 
2334 LOCATE 1.26:FRINT'entrez le #tage 
fdon il 
2344 LOCATE 1,26: PRINT" 


2354 LOCATE pla.pli:PRINT USING'########" 2 fdon il} 


2364 IF pla:74 THEN pii=piiti:pia=i 


237à 
2388 
2596 
2466 
2416 
E42ù 
2436 
2446 
E IF 
E IF] 


2454 
2466 
474 
24658 
2436 
25604 
2519 


pla=piat 


pi) 
IF ii THEN GOTO 2446 
zac=tdon(li:zvc=tdon(t} 


IF fdon(lizxc THEN zxc=fdon(l) 
IF fdonil)izve THEN zyc=fdon(i! 


NEXT 


zuc$=STRS axc): laxc=LEN(zxc#isive=lzxc-4 
IF ivci= THEN lyd=i ELSE IF lvc=i THEN lyd=16 ELS : 
1yc=£ THEN 1yd= 100 ELSE IF 1vess THEN lvd=igéé ELS 


CLS: PAPER G:FEN i: BORDER 


IF col=i 
IF col=5 
IF col=4 


THEN es=528 
THEN es=tié 
THEN es=5id 


IF col=5 THEN e5=292 


IF col=b 
IF col=7 


THEN es=55û 
THEN es=fés 


3:MODE i 


ste INPUT: 


25284 IF col=8 THEN es=256 

2539 IF col=9 THEN es=744 

2548 IF coi=14 THEN es=212 
2556 IF coi=ii THEN es=258 
25é6ë IF col=i£ THEN es=26b 
2574 IF col=iT THEN es=196 
2586 IF col=ié THEN es=154 
2598 IF col=i5 THEN es=i7À 
Zëëé IF coi=ié THEN es=iéôt 
25ië IF col=17 THEN es=i48 
2824 IF col=ie THEN es=i3é 
2654 IF coi=i9 THEN es=124 
264% IF coi=26 THEN es=ii2 
265% IF col=21 THEN es=igà 
2664 IF col=22 THEN es=88 

2674 IF col=23 THEN es=7é 

268% IF col=24 THEN es=64 

2896 ‘ dessin 


2746 piatitre=346-({ititre/2i#ibiiplastitre=3:44-((lstit cGE< 


re/2i#iél:plaleg=340-((11egm/2) #16) 
2716 TAG 


2729 MOVE platitre.398:FRINT titre$::MOVE plastitre, 36 : 


:PRINT stitre$::MOVE plaieg.16: PRINT leanf: 
2738 TAGOFF 
2746 GOSUE 2970 


2758 PLOT 46,26:DRû4 838,20: DRAW 628,360: DRAM 49,568: DR : 


au 48,28 

276È ess=es:es55=es 

2778 FOR 1=i T0 col 

278% fmdon(l)=INTifdonili+3@é;zxC)+44 

2796 TAG 

2844 MOVE es-6. fmdon(1}+4: PRINT "+4": 

2814 TAGOFF 

2826 e5=es+24 

2834 NEXT 

284% IF co=i THEN GOTO 2954 

285% FÜR i=i TO col 

2866 TAG 

2874 MOVE esss-6,16:PRINT LOWERS(fleg$(lii: 
2886 esss-esss+24: TAGOFF 

289% NEXT 

2906 FLOT ess, fmdon(i: 

2916 FOR I=i TO COL 

2924 DRAW ESS. FMDON(T: 

2934 ESS=-E65+24 

294û NEXT 

2956 IF INÉEY(38)=6 THEN RUN ELSE GOTO 2956 
2964 END 

2974 TAG 

298% MOVE -j16,36:PRINT INT(Gj: 

2996 MOVE -14,364: PRINT INT(zxc/lyd}: 

3694 MOVE -14,316:PRINT INT((2xc/2)/lvd}: 
3019 MOVE -18,285:PRINT INT{(zxc-(zxc/4ii/lvdis 
19236 MOVE -14,134:PRINT INT((zxc/4i/lvdi: 
3836 TAGOFF 

3444 LOCATE 1,1:PRINT'IX":LOCATE 3,1:PRINT lyd 
3456 RETURN 

366% CLS:END 


>OT< 


>JVé 
FBWE 


#QN< 


LE 
#TVE 
2GW< 
HKXE 
#DD< 
PŸE< 
2HF£ 
#TG< 
2MH< 
?PJ< 
?LK<e 
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vous propose tous les deux mois une sélection des meilleurs lis- 
tings de jeux, éducatifs et utilitaires. Des dizaines de kilo-octets de 
vitamines pour votre Amstrad CPC. 


Si vous êtes abonné, vous le recevrez gratuitement dans votre 
boîte à lettres en même temps que votre CPC ! 

Mais si vous avez des difficultés à vous les procurer, n'hésitez pas 
à nous les commander en utilisant le coupon ci-dessous. 


Ts | 


X & } 
DRAPEAPITALES 


NUCLEAR 
BIORYTHMES 


: | JEU 
sl DAME 


. À \ EE X/ 
| ATILITAIRE Val 
| JACQUETTES a — Sd 


Re 


Chaque disquette comporte tous les programmes du n° hors-série correspondant. Les abonnés à CPC 
bénéficient du tarif unitaire de 110 F pour les disquettes. 


\ 


NOM. 7 DER DD eee 1 NE TOO TOME AT D CAE A 
Adresse :::.: Sue. 

Code ‘postal: sommier A a OUT NOR 
Date "7... 0eme SU LT TS MANS RRRNEN CS An EE SL RE ESS 


Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l’ordre des Editions SORACOM. Retournez le coupon ou une photocopie 
à Éditions SORACOM - La Haie de Pan - 35170 BRUZ. 
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PARLANT VRAIMENT FRANÇAIS 


es À 
pee PO 8.88 
Go le Poe ae 


Con 


A lants 
logiciels pere res 


w ee 
MFT 


éducatifs 8 


ss TMENSEUR VOEAL 


IMPI 


Les langages de haut niveau débarquent 
sur les micros. Il suffit, pour s'en con- 
vaincre, de voir ce que Borland propose 
sur compatible. Aujourd'hui ARNOR pré- 
sente le premier C sur CPC et PCW. 
Mais pourquoi développer en C alors que 
l'on dispose déjà du Pascal sur nos 
machines ? Tout d'abord parce que ce 
langage, possédant une haute structura- 
tion qui rappelle le Pascal, peut conve- 
nir pour toutes sortes d'applications, 
depuis les jeux ou les maths jusqu'à 
l'écriture d'un système d'exploitation. 
En effet, dans bien des cas, l'assembleur 
peut être remplacé par le C (accès aux 
routines du DOS). Ne se contentant pas 
d'être évolutif, grâce à la constitution de 
bibliothèques, il est surtout très standar- 
disé, c'est-à-dire que, si vous avez appris 
le C sur une autre machine où un autre 
logiciel, vous pourrez appliquer vos con- 
naissances sur le C d'ARNOR et inver- 
sement. 

Ce langage est bien entendu compilé, ce 
qui produit une grande rapidité d'exécu- 
tion. 


AMPLIFICATEUR 
(OPTIONNEL) 


464, 664, 
6128 


ame! 
12 VOCAL 


4 CPE 618 


545F 5 


DISPONIBLES CHEZ VOTRE REVENDEUR 


VENTE DIRECTE PAR CORRESPONDANCE 
PORT GRATUIT POUR ACHAT SUPÉRIEUR À 500 F 


LE NUMÉRO 1 DU SON INFORMATIQUE 


TECHNI-MUSIQUE & PAROLE INFORMATIQUE 
rue Fontaine-du-Bac 63000 Clermont-Ferrand 


PROGRAMMEZ EN C 
AVEC ARNOR SUR 6128 


ET PCW 


main) / essaipæcX # 


{ dr: 

printfie PIOCROEZ D C S@ AMSTRAD CAC où ECU \a”); 
e=getch(); S 

} fs fio 


Le logiciel d'ARNOR est constitué d'une 
disquette 3’ qui contient tous les outils 
de développement suivants : 


— éditeur : type de traitement de texte 
avec différentes facilités fréquentes des 
éditeurs. 

— compilateur : transforme le fichier 
texte en langage machine (cette opéra- 
tion est faite une fois pour toute avant 
exécution). 


— linker (éditeur de lien) : complément 
indispensable du compilateur. 

— joiner (chaîneur) : réalise le chaînage 
de plusieurs programmes. 

On trouve, d'autre part, un manuel an- 
glais qui, malgré le défaut de n'être pas 
écrit dans notre langue, semble très com- 
plet. Ce guide de l'utilisateur traite de 
l'exploitation du logiciel, des différents 
utilitaires et de leurs commandes, mais 
en aucun cas ne détaille les notions du 
langage C. Pour cela, vous devrez vous 
référer à un ouvrage spécifique (il en 
existe actuellement ; d’ailleurs une biblio- 
graphie est fournie). 

Ce manuel détaille aussi la manière de 
réaliser l'installation (opération délicate 
et primordiale). Malheureusement pour 
les possesseurs de 6128, l'installation 
d'un disque virtuel, outil très apprécié 
des programmeurs, sera impossible du 
fait de la relativement faible capacité de 
la mémoire. 

Les essais pratiqués ont révélé que, pour 
un programme de moins d'un kilo-octet, 
le code n’occupera pas moins de dix kilo- 
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octets, ce qui paraît important. On ima- 
gine, en effet, que les disquettes seront 
vite pleines pour un programmeur pro- 
ductif. Il faut qu'il sache, d'autre part, 
que les temps de compilation sur disque 
sont assez longs. 


Le 6128 paraît donc juste bon à faire jou- 
jou en C. Les PCW, quant à eux, vous 


Les utilisateurs du BASIC n'ont jamais eu 
le plaisir de goûter aux joies de la vitesse 
et des animations somptueuses. Seuls 
les adeptes du langage machine ont pu 
s'aventurer sur ces sables mouvants. Et 
rares sont ceux qui s'en sortent honné- 
tement. En proposant GRAPHO, CTS a 
voulu nous donner des animations réus- 
sies à tous les coups. Vous allez voir 
votre bon vieux BASIC remis à la hau- 
teur, avec une boîte à outils garnie d'une 
quarantaine d'instructions d'extension 
(appelées RSX) ainsi qu'un éditeur gra- 
phique permettant de créer des dessins 
et des décors. 

Désormais, tout ce que votre imagination 
conjuguée à GRAPHO suggérera, pourra 
être transcrit à l'écran. 

Parce que GRAPHO utilise pleinement les 
128 Ko du 6128, une zone mémoire est 
disponible pour stocker des décors. Vous 
pourrez ainsi avoir 5 pages écran simul- 
tanément en mémoire. La notice indique 
qu'il suffit de 50 millisecondes pour opé- 
rer un transfert d'écran. (Pensez donc, 
c'est presque du cinéma). 

Ce qui frappe d'abord à la lecture du 
manuel, c'est sa progressivité. En effet, 
chaque notion est très clairement expli- 
quée. Le lecteur débutant comme le che- 


vronné repérera les chapitres à sa por- 


tée grâce à un système de balise. Une 
aide précieuse sera fournie au program- 
meur : au départ pour la définition du 
scénario, puis pour la création des motifs 
et enfin des décors. Il ne reste plus qu'à 
écrire les séquences d'animation en 


104 


Diffuse pazxr-: Es És 


Fr 1:22 


permettrons une utilisation plus aisée et 
pourquoi pas professionnelle, grâce à des 
temps d'accès rapides (utilisation d'un 
disque virtuel). 


Remarque : un disque virtuel s'utilise 
comme un disque normal, mais sa parti- 
cularité est d'être résident en mémoire. 
La seule chose qui pourrait subsister est 
la difficulté pour les claviers AZERTY des 


PCW de créer certains caractères néces- 
saires à la syntaxe du langage. 

Nous sommes tout de même flattés de 
trouver sur nos ‘‘petites bécanes'’ des 
langages dits de haut niveau, encore 
faut-il que certaines dispositions soient 
prises quant aux mémoires limitées des 
machines ou à leurs différents claviers. 
Ce logiciel de qualité vous permettra de 
vous initier au langage nouveau et per- 
formant qu'est le C. 


GRAPHO 
(CTS) 


BASIC (tout simplement) mais en utili- 
sant la puissance des RSX. 
Visiblement, CTS s'est fixé pour but de 
faire rivaliser les utilisateurs de GRAPHO 
avec les virtuoses de l’assembleur. 
Pour faire de vous le complice de GRA- 
PHO, le manuel vous enseigne la termi- 
nologie de l'animation et du graphisme. 
Une fois ceci acquis, l'utilisateur peut 
s'exercer à la pratique de l'éditeur 
graphique. 

Associé aux RSX, cet éditeur est le pilier 
de GRAPHO. Vous créerez, avec son 
aide, tout ce qui devra être affiché : 
décors, motifs. Vos créations pourront 
être sauvegardées dans les écrans invi- 
sibles en vue d'effectuer des mixages 
complexes comme il est indiqué dans la 
notice. De nombreuses options sont 
mises à votre disposition. Ainsi, vous 
pourrez réaliser des recherches de motifs 
où d'octets à travers l'écran, vous pour- 
rez même zoomer des portions d'image 
pour bien étudier ce qui s'y trouve et 
éventuellement affiner vos graphismes. 
Toutes ces manipulations se font à l'aide 


AM RES OIN 
FAIRE JEUX ET ANIMATIONS 


de curseurs, de cadres. Les actions sont 
déclenchées par des touches définies. A 
ce propos, on peut regretter l'absence de 
menu, mais ce défaut est fort bien com- 
pensé par la notice qui, en plus d'expli- 
quer en détail la fonction réalisée par cha- 
que touche, fournit un petit mémoire des 
fonctions disponibles et des touches 
affectées. Vous trouverez, de même, la 
liste des macrocommandes accessibles 
depuis l'éditeur. 

Quand l'utilisateur commence à étudier 
les instructions RSX, il est tout d'abord 
impressionné. Rendez-vous compte, 
quarante instructions supplémentaires, 
autrement plus puissantes qu'une mal- 
heureuse instruction PLOT ! Quant on 
s'y intéresse d'un peu plus près, on 
découvre toute la puissance de GRA- 
PHO. C'est en écrivant ses premiers pro- 
grammes qu'on arrive à assimiler les ins- 
tructions qui, rassurez-vous, ne sont en 
aucun cas trop nombreuses. Leur 
syntaxe francisée permet une mémorisa- 
tion facile. Vous serez bientôt à même 
de manipuler des motifs dans la direction 
que vous désirez, sur des décors que 
vous aurez créés, ceci à des vitesses par- 
fois vertigineuses. 


Bien entendu, les instructions essentiel- 
les aux jeux vidéo, telles que test de col- 
lision ou scrolling sont très complètes. 
Tout est réuni pour faire de vous un as 
de la programmation rapide et puissante. 
Les portes vous sont ouvertes, à vous de 
jouer |! 


cm. mn … 


ME ANT 
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FONCTIONS NUMERIQUES 


Michel HIRTZLER 


L'intérêt du programme réside dans sa 
capacité à traiter les formes “‘littérales’” 
des fonctions. Ainsi, la dérivée de sin (x) 
+ cos (x) s'inscrira (cos(x) — 1 x sin(x)), 
cette dernière formule peut être gardée 
en mémoire. 

On peut alors effectuer une seconde déri- 
vation puis une troisième, jusquà n. De 
retour au menu, l'option 6, développe- 
ments limités, vous permettra de travail- 
ler sur des développements d'ordre 1 à 
5 au voisinage d'un nombre choisi. 

Si vous tenez absolument à connaître la 
valeur de votre fonction pour un x donné, 
cela vous est offert par l'option 4 avec, 
en prime, entrée des paramètres .et 
détection des fonctions non définies pour 
la valeur x. 

Ilne vous reste qu'à développer les pro- 
duits ou les puissances entières pour 
avoir fait le tour des possibilités de 
fonction. 


Ce logiciel est sous-titré : du calcul for- 
mel aux graphes et fonctionne sous 
CP/M +. 

Les deux parties : calcul et graphique ont 
été écrites en Turbo-Pascal. Vous trou- 
verez d’ailleurs sur la disquette les pro- 
grammes sources. À vous de les modi- 
fier pour obtenir un logiciel personnalisé. 
Le premier programme compilé s'intitule 
FONCTION. Au lancement, vous obtenez 
un menu de 7 options. La première pro- 


pose l'entrée de la fonction. Cette der- 
nière doit comporter tous les opérateurs 
*, +, —, / (pas de raccourcis du style 
3x + 2). Les fonctions disponibles vont 
du logarithme népérien à l'arc tangente 
en passant par le sinus hyperbolique. 
Une fois le numéro de la fonction entré, 
il est possible de triturer votre formule en 
lui faisant subir, non pas les derniers 
outrages, mais des dévelpppements limi- 
tés ou bien des dérivées. 


Au chapitre des regrets, on peut remar- 
quer l'absence de correction lors de l’en- 
trée des fonctions. 

L'autre programme ‘’COURBE"" offre le 


traçage de 10 représentations graphi- 
ques simultanées à l'écran. Ces courbes 
peuvent être de 3 types : 

— de la forme y = f(x) 

— paramétrique 

— en coordonnées polaires 

L'origine, les ,unités en abscisses et 
ordonnées, l'intervalle d'étude ainsi que 
le pas d'exécution sont paramétrables. 
Les courbes tracées peuvent éventuel- 
lement être copiées sur une imprimante. 


Pour tous renseignements concernant ce 
programme, écrivez à Michel HIRTZLER, 
Saint-Appolinard 42410 PELUSSIN. 


Drive is A: 


JOUEZ, CRÉEZ, APPRENEZ LA MUSIQUE 
AVEC LE SYNTHÉTISEUR MUSICAL TM. FL. 


12 VOIES STEREO pour CPC 464, 664, 6128. 


| 350 Fi (OPTIONNEL) 


IMPX 


05 40 44 17 


ape GRATUIT 


"980 Fe 


DISPONIBLES CHEZ VOTRE REVENDEUR - VENTE DIRECTE PAR CORRESPONDANCE 


PORT GRATUIT 


LE NUMÉRO 1 DU SON INFORMATIQUE 


TECHNI-MUSIQUE & PAROLE INFORMATIQUE 
rue Fontaine-du-Bac 63000 Clermont-Ferrand 


_ TRANSFORMEZ 


VOTRE PC1512 EN 
MINITEL INTELLIGENT 
AVEC LE LCE-CABLE 


Un ensemble d’émulation du minitel à partir d’un PC pour 
750 F H.T, soit un prix largement inférieur aux produits 
concurrents, voilà qui ne pouvait manquer d’'intéresser la 
rédaction de CPC qui s’est empressée de le tester pour 


LCE-CABLE, diffusé par la Commande 
Electronique se compose d'une disquette 
contenant le programme LCE-COM, 
conçu par Goto Informatique, d'un câble 
reliant le connecteur série de votre PC 
1512 à la prise péri-informatique du mini- 
tel et d’un manuel d'utilisation de 130 
pages. Le raccordement ne pose aucun 
problème car, pour une fois, le cordon 
e: : souple et assez long. 

Chargeons le programme Minitel et appe- 
lons notre serveur favori. Déjà, première 
surprise : les graphismes vidéotex sont 
correctement affichés à l'écran et en 
couleurs. Notons à ce sujet qu'un pro- 
gramme Config nous aura permis, au 
préalable, de configurer le logiciel à notre 
PC1512. Le logiciel donnera le meilleur 
de lui-même si vous disposez d'un mini- 
tel 10, mais se satisfait également d'un 
minitel 1. Pour notre PC1512, nous choi- 
sirons les paramètres suivants : Com 1, 
carte CGA et écran couleur. 

Non content d’émuler le minitel, LCE- 
COM permet également de sauvegarder 
les pages consultées pour une visualisa- 
tion ultérieure et même, de les imprimer 
en mode texte ou encore en mode gra- 
phique, si vous avez préalablement 


vous. 


chargé l'utilitaire Graphics, livré avec le 
DOS. Cette procédure offre l'avantage 
de réduire substantiellement la durée de 
consultation des serveurs et donc le coût 
de connexion. Vous pouvez également 
créer un fichier ASCII à partir des infor- 
mations capturées et l’exploiter à partir 
de votre traitement de texte habituel. La 
disquette contient également un réper- 
toire téléphonique d’une consultation 
très agréable permettant la numérotation 
automatique à partir d'un minitel 10. La 
mise en œuvre du logiciel en mode ter- 
minal est extrêmement simple et quand 
bien même vous éprouveriez quelques 
difficultés, vous pouvez, à chaque ins- 
tant, faire appel à un menu d'aide. 

Un des principaux atouts de ce logiciel 
réside dans sa capacité à créer automa- 
tiquement des procédures de consulta- 
tion automatisée. || suffit, pour cela, de 
choisir le mode apprentissage et de con- 
sulter son serveur, comme on le fait habi 
tuellement. Au fur et à mesure de la con- 
sultation, le programme enregistre la 
séquence de touches que vous avez 
pressées, dans un fichier appelé procé- 
dures et sera capable ultérieurement de 
reproduire la consultation de manière 
entièrement automatique. 


Les procédures peuvent naturellement 


stion de [2 Ligne 
pertoire 


être modifiées à volonté ou encore 
créées de toutes pièces, grâce à un puis- 
sant jeu d'instructions qui est, en fait, un 
véritable langage de programmation. 
A titre d'exemple, la disquette contient 
quatre procédures prêtes à l'emploi : 
récupération de valeurs boursières, récu- 
pération de plusieurs numéros de télé 
phone, émission d’un télex et, enfin, 
celle qui nous a paru la plus intéressante, 
la récupération des numéros de télé- 
phone par rubriques, qui remplace avan- 
tageusement les pages jaunes de l’an- 
nuaire. Notons enfin la possibilité 
d'échanger par téléphone des fichiers 
entre deux PC1512. 

Toutes ces caractéristiques font, si l’on 
excepte quelques défauts mineurs, tels 
que l'impossibilité de fixer le drive par 
défaut (sur notre Version tout du moins) 
ou encore un mode 80 colonnes qui est 
en fait un 40 colonnes compressé et 
n'acceptant pas le scrolling, que le LCE- 
CABLE est un excellent outil d'émulation 
qui a su nous séduire par sa convivialité, 
ses performances et son prix. 


Marcel LE JEUNE === 


INITIATION 


Stephane CLOIREC 


Pour clore la série sur 
les instructions pré- 
déclarées, nous allons 
voir ce mois-ci un type 
de commande un peu 
différent des fonctions : 
les PROCEDURES. 


Tout comme les fonctions, les 

rocédures sont appelées par Pascal 
orsque celui-ci rencontre 
l'IDENTIFICATEUR approprié ; certaines 
d’entre elles nécessitent également le 
passage d’un ou de plusieurs 
paramètres mais, par contre, elles ne 
retournent pas de valeur après avoir 
été appelées. L'appel d’une procédure 
n’amène d'autre résultat que 
l'exécution immédiate de ce pour quoi 
elle a été créée. Il n’y a donc pas lieu 
d’affecter le résultat d’une procédure à 
une variable. 
(Une syntaxe telle que RESULTAT : = 
PROCEDURE (VALEUR) ; ne peut exister). 


PROCEDURES. 
PREDEFINIES 


Vous connaissez déjà quelques procédures : 

— READ et READLN pour l'entrée des données 

— WRITE et WRITELN pour la sortie sur écran ou sur 

imprimante 

— CLRSCR qui efface l'écran. 
Nous allons nous limiter aux procédures de gestion 
d'écran et à quelques autres d’utilités diverses mais 
très intéressantes. Sachez cependant que PASCAL 
TURBO garde encore de nombreux atouts dans sa 
manche. 


La gestion d'écran 


Comme dans les articles précédents, les paramètres 
nécessaires à l'exécution de la procédure seront 
indiqués derrière les initiales C.E (Conditions d’Entrée) 
et il n’existe pas de conditions de sortie (cf. début). 


Procédure CLREOL 

Utilité : comme l'indique la version anglaise (Clear 
End Of co cette procédure efface tous les 
caractères d’une ligne à partir de la position du 
curseur et ce, jusqu’à la fin de celle-ci. La position du 


107 


108 


curseur n’est pas affectée par l’utilisation de la 
procédure. 

Syntaxe : CirEol; 

C.E : Néant. 


Procédure CLRSCR 

Utilité : efface l'écran (Clear Screen). Replace le 
curseur en haut et à gauche. 

Syntaxe : CirScr; 

C.E : Néant 


Procédure DELLINE 

Utilité : efface la ligne sur laquelle se trouve le 
curseur (Delete Line). Toutes les lignes se trouvant 
sous le curseur se trouvent par là-même remontées 
d'un cran. 

Syntaxe : DelLine; 

C.E : Néant 


Procédure INSLINE 

Utilité : insère une ligne vierge à l'endroit où se 
trouve le curseur (Insert Linef Toutes les lignes se 
trouvant sous le curseur sont décalées d’une position 
vers le bas (la dernière ligne de l'écran est donc 


pue 
yntaxe : InsLine; 
C.E : Néant 


Procédure GOTOXY 

Utilité : positionne le curseur aux coordonnées-écran 
fournies à la procédure. 

Remarque : l'écran est composé de prarans lignes 
de quatre-vingts colonnes. Les coordonnées du coin 
supérieur gauche sont (un,un). 

Syntaxe : GotoXY (Position__colonne,Position__ ligne); 
C.E : Position__ colonne et Position __ ligne sont 
entières. 


Procédure : LOWVIDEO 

Utilité : permet d'afficher des chaînes en vidéo 
inverse. 

Syntaxe : LowVideo; 

C.E : Néant. 


Procédure NORMVIDEO 

Utilité : commande le retour de l’affichage en vidéo 
normale si celui-ci se trouve en vidéo inverse. 
Syntaxe : NormVideo; 

C.E : Néant. 


Les Procédures Diverses : 

La plupart des procédures restantes (à part celles 
concernant le traitement des chaînes qui seront l’objet 
d’un article ultérieur) sont d’un niveau trop élevé pour 
être traitées ici (manipulation de fichiers, contrôle de 
la mémoire dynamique...). Mais vous pourrez 
facilement utiliser les quatre procédures suivantes, 
dont les deux dernières sont particulièrement 
importantes à connaître, ne serait-ce que pour la mise 
au point de vos propres programmes. 


Procédure DELAY 

Utilité : cette procédure crée une boucle d’attente 
dont la durée doit être fournie en millisecondes. 
PASCAL TURBO ayant été développé pour 
compatibles IBM, la durée sera sans doute un peu 
supérieure sur votre AMSTRAD à la durée théorique. 
Syntaxe : Delay (Nbre__ millisec); 

C.E : Nbre__millisec doit être entier. 


Procédure RANDOMIZE 

Utilité : Ré-initialise le générateur de nombres 
aléatoires. 

Syntaxe : Randomize; 

C.E : Néant. 


Procédure HALT 

Utilité : lorsque PASCAL rencontre cet identificateur, il 
interrompt immédiatement le déroulement du 
programme et rend la main à l'utilisateur en 
retournant au menu général de PASCAL TURBO. 
Syntaxe : Halt; 

C.E : Néant 


Procédure EXIT 
Utilité : comme nous l’avons vu au début de cette 
série, Pascal est un langage structuré en BLOCS. Dans 
le bloc instruction peuvent cohabiter un grand nombre 
de sous-blocs, chacun débutant par un BEGIN et se 
terminant par un END. L'instruction EXIT permet, 
lorsqu'elle est appelée, de sortir du bloc en cours 
d'exécution pour se placer à la première instruction 
du bloc suivant. 
Remarque : si votre programme ne comporte qu’un 
seul bloc, l’utilisation de la procédure EKIT permet de 
quitter le programme. 
Syntaxe : Exit; 
C.E : Néant. 
e 

Enfin, pour confirmer la règle énoncée au début de 
cet article (une procédure ne retourne pas de valeur 
après exÉeuton) voi deux exceptions qui n’en sont 
d’ailleurs pas tout à fait : comme vous allez pouvoir 
le constater, on ne peut toujours pas affecter le 
résultat obtenu grâce à la procédure à une variable 
Jusenaus comme avec les fonctions. 

les utilisent, en effet, non pas une syntaxe de type 
< RESULTAT := PROCEDURE VALEUR);>, mais 
< PROCEDURE (VALEUR,RESULTAT); > 
ce qui, vous ‘en conviendrez, n’est pas tout à fait la 
même chose. Ces deux procédures seront exposées 
beaucoup plus en détail lorsque nous verrons le 
traitement des chaînes de caractères. 

e 

Procédure STR 

Utilité : cette procédure convertit une valeur 
numérique en une chaîne de caractères. 

Syntaxe : Str (Valeur, Chaine); 

C.E : Valeur est entière ou réelle 

Chaine est du type STRING. 


Procédure VAL 
Utilité : Val effectue l’opération inverse de String, à 
savoir convertir une expression chaine en valeur 
entière ou réelle. 
Syntaxe : Val (Chaine, Valeur, Code_erreur); 
C.E : Chaine est de type STRING 

Valeur est entière ou réelle. 
Code_ erreur est entière et fonctionne ainsi : 
* Si aucune erreur n’est détectée, Code_ erreur est 
mis à zéro 
* Sinon, Code_ erreur contient la position du premier 
caractère en erreur et, dans ce cas, Valeur est 
indéfinie. 
a ———————— he —————— 


Vous disposez maintenant d’une batterie de 
procédures et de fonctions suffisamment conséquente 
pour envisager l'élaboration de petits programmes de 
toutes sortes, ce à quoi je vous incite vivement : c'est 
en élaborant ses propres programmes et en faisant 
des erreurs qu'on progresse le mieux et le plus 
rapidement. À vos claviers | 


Frogram Essai des procedures predefinies (Input Output); 


Var” ls 
Fos _X;Fos .Y : Integer: 
EBegin 
Cilrscr:; 
Writeln (Gucput, °1")3 
Writeln (Output,°.")s 
Writeln (Output, ‘. Ceci est un texte qui ne sert a rien. °); 
Writeln (Output, ". En fait, il sert a quelque chose meme s°°°); 
Writeln (Output, ‘5 il n'a l1''air de servir a rien: il occupe ): 
Writeln (Output, ‘. dé la place sur l''ecran et va visualiser‘); 
Writeln (Output, ‘’. les effets des procedures, ‘):; 
Writeln (Output, 8"); 
Writeln (Output): 
Writeln (Output, "Los Snssslosus loue 2uussduans uma m deu se duonaudenusg )3 
Writeln (Output, a S a 5 a 5 (] 5 70‘); 
GOtoxY (15,143 
Writeln (Output, "Nous allons tout d'abord tester ClrEol.")s;s 
Güutouxr (15,15); 
Writeln (üutput,'Entrez les coordonnees du curseurs ‘)3 
GutuXY (29,17); 
Write (Output, No de colonne : ‘"): 
Readln CIlnput,Fos _x)3s 
GüutouXY (20,18)53 
Write (Output, "Nÿ de ligne s ‘)s 
Readln {Input ,Fos y): 
GotoXY (Fos _x,Fos_ y): 
ClilrEol:; 
GüutoxXY (15,20); 
Writeln (Output, 'Comme vous le voyez, ca marche !°); 
GotoxY (26,24): 
Writéln (Output, "Appuyez sur une touche, ‘);: 


Repeat Urntil Feypresseds 


For I := 14 to 24 Do 
Eggin 
GotoXxY (1,1); 
Writeln (Output, 
End; 
Lowvideo:; 
GotoxY (1,17); 
Writeln (Output, Et maintenant, vous pouvez vous-meme essayer les‘): 
Writeln (Output, autres procedures predefinies en modifiant un peu‘); 
Writeln (Qutput, ‘)s 


ce programme, 
Normvideo;s : 
GotoxY (20,25): 

Writelr (GulpuEk, "Au travail 1°): 


End. 
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Program Essai des procedures predefinies No ZT (input ,Dutuut)is 


Lauei Debut; 
Const Max = 10088: 
Var fline, 


di 
bre _alea,Nbre donne 


Begin 


Clrscr; 
Kandomize; 
Writeln (Output ,'L''ordinateur va 


Q On définit un labei pour ia boucle. 


+ Nombre algeatoire ma:imum du jeu. 


Les 


: Integer: 


On efface l'ecran et on initialise 
le generateur aleatoire. 


Cale du | 
Les Lo 


choisir un nombre. ");: 


Writeln (Output, 'A vous de le redonner sans vous tromper. "); 
Writeln (Output, Choisissez la difficulte: mettez un temps d'‘'affic'hage");: 
Writeln (Output ,'de plus en plus court. "); 


Writeln (Output); 

LowVidec; 

Write (Output, ‘Entrez le temps d°‘ 
Readln (Input,Time);: 

Time := Time * 1U: 

NormVideü:; 


Debut:  Clrscr: 


Nbre _ aléas 1= Randüim (Max): 
GüutoxY (iB,10);: 
Writeln (Output, 'Duand vous 


Repeat Until Feypressed:; 


GotoXY (24,15): 

Writelih (Output Nbre _aleai: 
Delay (Time); 

GütoxY (18,15): 

Writeln (Gutput,° ")s 
GotouxY (10,20): 

Write (Output, ‘Entrez votre 
Readln (Input ,Nbre_ donne); 
Gotoxy (10,22); 


affichage du nombre ‘en centiemes:*: ‘); 


Fr 


{ On convertit en milliemes de secondes 


etes pret, tapez: une touche, "‘): 


la 


{ Houcle d'attente classique maintenant 


{ on affiche, on laisse le 
{ temps s ecouler, puis on 
t efface le nombre. 


OR) 


proposition s “3 


Write (Output,'La difference entre la solution et votre reponse ): 
Wwriteln (Output, est de ‘,Nbre_ donne - Nbre _alea); 


Repeat Until Feypressed: 
Güto Debut; 


nd. 
{ 
{ Four stopper le jeu, faire 
{ operation d'entree-sortie. 
Ed 
Le 
Ed 
L 
g 
Û 


Ÿ pour pouvoir interrompre le jeu à n'importe quel moment. 


Le programme ne s'arrete Jamais de lui-meme. 


CTRL-C pendant une } 


De plus, il ne teste pas la validite de la reponse ; 
proposee car nous n'avons pas encore vu les tests. : 
On se contente donc d'afficher la difference. 3 


t Essayez de transformer le programme en utilisant la procedure EXIT >} 


Los 


LL 


ss 


Frogram Exemple d utilisation de Exit (Input ,Qutput)s 


F 
L 


Si 
VOUS 1InNSpirez 


vous n'arrivez pas a modifier le programme Na ©, vous pouver 
de la methode ci-dessous: elle utilise une petite 
lors d'une entree - clavier, de ne pas avoir 
sur ENTER apres la saisie d'une touche: 


On remplace 1e ‘Input dans la procedure KEAD par ‘Ebd' qui or- 
donne une lecture d'une seule touche au clavier. 


Le 

{ astuce permettant, 

{ a taper 

su 

% 

Fa 

L 

fr 

L 

Fe 

L 

{ Attention: 

Ÿ 

Var Touche 3 Char; 

Begin 

Clrscr; 


GotoxXY (5,5): 
Writeln (Output, ‘Le programme 
Delay (1500); 


While (1 = 1) Do 


Rein 


a 
Le 
r 
L 


GotoxY (12,8): 


Writeln (Qutput, ‘Nous sommes maintenant dans dans la sous-boucle While‘); 


GotoxY (10,9)3 


Contrairement a INFEY# en HASIC, la procedure 
utilisee ici ATTEND que l'on tape une touche, 


LI ns Lu QU sr Roi Et QU LS LS 


vient de rentrer dans la boucle principale. 


On cree une boucle permanente: 1 ‘equation 
1z1 est toujours vraie ! 


Writeln (Qutput," En appuyant sur la touche 0, vous sortez par Exit, 


Read (Hbc, Touche); L. éme 
l$f Upcase (Touche) = ‘0° Then Exit; { ù 
End; € ! 
Ÿ 3 { C'est ici qu'on attend la 
End. { ES > { frappe de la touche. 
Û | 3 { Cf. debut du prog. 
{ On teste la touche en la } 
{ convertigssant en majuscu- 
{ Le pour plus de swrete. 3 
{ Comme vous pouvez vous en rendre compte, la procedure EXIT vous fait 
{ ici quitter le programme. Exit permet aussi, lors de l'appel d'une 


7. 
+ 
7. 
J 


, 


La LS OS Us D Lu 


procedure où d'une fonction cree par l'utilisateur, de sortir de cet- 
Le procedure où fonction pour revenir au programme principal. 


) 


LL Lg LS LS 


111 


PET I 


TES 
ANNONCES 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 
dans leur ordre d'arrivée. Par contre, les peti- 
tes annonces farfelues sont systématique- 
ment rejetées... De même, comme il est peu 
probable qu'il existe des ‘généreux dona- 
teurs'’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

Seront refusées toutes les annonces visant 
à vendre ou échanger des listes ou copies de 
logiciels non garantis ‘‘d’origine’’, ainsi que 
toute annonce incitant au piratage. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocopiée), le texte étant rédigé à raison d’un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Possesseur 464 coul. + DD1 cherche club sur Paris 
12e, 11e, 20e. M. Bausson, 55 av. de St-Mandé 
75012 Paris. 


Echange DMP2000 (01-87) contre 5’’1/4 avec 100 
disquettes minimum. Tél. 70.90.24.65, demander 
Marc (week-end) Allier. 


Cherche contact pour former club Pascal. J.F Bru- 
net, 149 Bd des Belges 44300 Nantes. 


Vends Graphiscope 700 F à débattre - Vends 
T1994 À + BASIC étendu + magnéto + logiciels. 
Valeur : 2200 F, vendu : 500 F. Tél. 76.90.32.80 


Cherche extension DKT pas chère ou échange con- 
tre softs originaux. Tél. Régis (1) 34.78.71.79 
après 19 h ou le w.e. 


Recherche Amstrad PCW 8256 bon état. Faire 
offre M. Marcel Michailoff - Yviers - 16210 Chalais. 


Vends CPC464 mono + joystick + nbx jeux + 15 
revues + manuel tech. + cassette de démonstra- 
tion 1800 F. Tél. 67.75.83.64. 


Echange jeu pour CPC 464 à K7. Possède + de 
100 jeux et beaucoup de nouveautés. Si vous êtes 
intéressés tél. 43.75.64.40. 


Vends jeu vidéopac + 67401 avec 4 cassettes plus 
interface péritélévision plus manettes. Le tout 
300 F. Tél. 69.43.15.68 


Urgent cherche photocopie du paint de Rémy 
Valentin, paru dans un CPC. Stéph. Huette, St Jean 
de la Neuville 76210 Bolbec. 


Cherche DBASE + notice et notice pour Master- 
cal C 128 + Amsword pour 6128 contre jeux ou 
divers. Tél. 50.43.01.43 


Rentabilisez votre 
da L'EST 
GESTION de FICHIERS 
Mallard 


+ avec le Basic 


voir CPC No 17 page 60 # 
Exploitation de Fichier 
à accés direct 
- Edition selective 
- Recherche multicritére 


Hailing 
liombre illimité de Fichier avec 
olus de 900 Fiches de 10 Rubriques 


LES Frs 

a 
Hr Koger DESFOURNAUX 
3i rue du Couvent 84300 CAVAILLON 


Rens. + cataloque contre ? timbres 


{port compris) 


Vends CPC 464 monoch. + livres + joystick + 
casset. 1200 F - Vends PCW 8256 + Imp. + livres 
+ logiciels + utilitaires. Tél. 39.91.82.62. / 
3200 F 


Vends CPC 464 coul. + 60 logiciels 2900 F + 
poss. table ordinateur. Prix à débattre. Tél. 
87.03.63.01 après 19h. 


Vends CPC 464 C 2000 F + DDI 1200 - Ex Vor- 
tex 512 K 1100 - Adapt. péri 350 - magnétoscope 
Brandt 4000. Tél. 84.25.31.28 


Vends synthétiseur de parole 464, 250 F + jeux 
originaux (Jet Set, Willy, Ace of Aces et nbx 
autres). Tél. 34.74.53.37 Christ. 


Vends imprimante Commodore MPS 803 état neuf, 
1200 F. Tél. 54.43.16.65 entre 14h et 19h. 
Demander Marc. 


Cause double emploi vends DMP 1 très peu servi 
+ scriptor 1000 F. Tél. 41.00.88.65 après 19 h. 


Vends CPC 464 couleur + jeux 2000 F. Olivier 
Chevalier, rue du 8 mai, appart. 21, entrée AÀ., 
59264 Onnaing. Tél. 27.35.31.04. 


Vends disk 3’ DF sans alim. avec boîtier neuf, 
valeur 2000 F, cédé 1000 F. Tél. 90.59.89.50. 


Vends CPC 6128 mono interfacé 8 bits + livres 
divers. Val. 2500 F + CPC 4 À 23 + AMS MAG 
2 À 23, le tout 4500 F. Tél. (1) 43.94.50.00 poste 
5397 


Vends Amstrad 464 mono cassette + imp. DMP 
2000 + 40 cass. + poignet + livre, le tout 3500 F 
à débattre. Tél. 43.85.65.06 après 21 h. 


Chômeur FD recherche listing pour création logiciel 
comptabilité. Faire offre Pierre 20.34.68.18 


Cherche contacts pour créer un serveur Soft + 
hard (bal, messagerie, salons...) sur 664 + 64 K. 
Tél. 98.44.68.05 après 19 h. 


Vends CPC 464 mono lecteur disc DD1 crayon 
optique, esp. revues, nombreux logiciels, adapta- 
teur couleur 3000 F le tout. Tél. 48.52.86.76 


Vends CPC 6128 coul. + livres + revues + jeux 
+ lecteur cass. + joystick (sous garantie), le tout 
4000 F. SYSAATH THONG, 48.22.94.87 après 
18h. 


Vends CPC 6128 sans moniteur, t.b.e.. Faire offre 
tél. 91.37.93.30. 


Vous pouvez passer directement vos annonces sur le minitel 


Attention : Dans un tel cas elles ne seront pas dans la revue. Une annonce envoyée à la rédaction 
est mise sur le serveur dans les 48 heures. 


Coupon à renvoyer accompagné de 4 timbres à 2,20 F à : 
SORACOM, La Haie de Pan — 35170 BRUZ 


Gagnez du temps ! Sur Minitel 36.15, tapez MHZ 


Photogravure couleur : BRETAGNE PHOTOGRAVURE - Impression : RFI - Distribution : NMPP — Dépôt légal à parution. 
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FAITES 36.15 ET TAPEZ MHZ 


CE QUE VOUS OFFRE 
NOTRE SERVEUR MINITEL 
NOUVELLE FORMULE 


Notre serveur Minitel a été complètement modifié 
pendant l'été 1987. De l'information, des affaires, 
du dialogue. Tout un programme. 


NOS REVUES 


Le sommaire du numéro en vente est affiché dès 
sa sortie. Le lecteur peut y trouver le nom des 
correspondants et la manière de joindre la ré- 
daction. 


LE DIALOGUE 


Cette nouvelle possiblité vous permet de dialo- 
guer entre vous mais aussi, deux fois par semai- 
ne, avec la rédaction. 


LA BOITE A LETTRES 


Déjà utilisée par des lecteurs de CPC et de Mé- 
gahertz, elle vous permet de poser vos ques- 
tions techniques chaque jour — 24h sur 24h — 
sans avoir à attendre que la ligne de téléphone 
soit libre les mercredi et vendredi. 

Les correspondances sont relevées chaque 
jour! 

De plus, vous pouvez, entre lecteurs, écrire, re- 
cevoir des messages, faire des échanges techni- 
ques. 

Les boîtes à lettres sont ouvertes sous votre 
pseudo aux normes télématiques. 

Nom de nos boîtes : SORACOM, AMSTAR, 
THEORIC, ASTROLOGIE P, ARCADES, MEGA- 
HERTZ, CPC REDAC. Le choix ! 


PETITES ANNONCES 


24h sur'24h, 7 jours sur 7, elles sont accessi- 
bles. Nous venons d'améliorer ce service. 
Depuis le 1er janvier 1987, c'est chaque jour 
que les annonces sont mises en place. De plus, 
vous pouvez DIRECTEMENT passer vos an- 
nonces sur le serveur. 

Depuis ce mois de juillet, vous pouvez entrer di- 
rectement vos annonces. Attention, dans ce cas 
elles ne sont pas dans les revues ! 


DES INFORMATIONS 


Des informations sont à votre disposition et régu- 
lièrement mises à jour, ainsi que les éventuelles 
corrections de listings en cas d'erreur avec la ru- 
brique Calamité. 


L'AFFAIRE DE LA SEMAINE 


Nous vous présentons en première page l'af- 
faire de la semaine. N'oubliez pas de la consul- 


+ 
| 
= 


Chaque mois, nous effectuons un sondage di- 
rect et vous avez la possibilité d'y ajouter des 
commentaires | 


36.15, TAPEZ MHZ 
ET FAITES VOTRE CHOIX 


Attention : les abonnements cassettes et disquettes ne sont pas rétroactif, 


REPORT TOTAL GENERAL A + B —_—_— 


TE à O Hors série n° 2 sans cassette 13F 
O Hors série n° 3 sans cassette 15F 
AMSTAR n° 1 épuisé D Hors série n° 4 15F 
À Compilation CPC 1-2-3-4 70 F | [] Horssérien°5 15F 
[ La pratique des imprimantes Entourez le (ou les) numéro(s) commandé(s). 
Michel ARCHAMBAULT 95F 
O Apprenez l'électronique sur AMSTRAD 
P. BEAUFILS & B. DESPERRIER Dr CASSETTES 
O 1 exemplaire AMSTAR n° 10F Franco de port 
Cassettes n° 1, 2, 14, 17, 18 épuisées 
1 cassette représente un numéro 
uk Lol D abonné 45 F 
[ non abonné 55 F 
CO Mieux programmer AMSTRAD 85F Ü abonnement cassettes (11 n°) 450 F 
O Communiquez avec AMSTRAD Je commande les cassettes n° 
D. BONOMO - E. DUTERTRE 90F * 
D Jouez avec AMSTRAD - KERLOCH 48F 
© Programmes utilitaires pour AMSTRAD DISQUETTES 
Michel ARCHAMBAULT 85F _______ Franco de port 
O L'Univers des PCW - Patrick LEON 119F 1 disquette contient 2 n° consécutifs de CPC 
Cassette — Disquette n° 1 comprend CPC 1 et2 
DO Communiquez avec AMSTRAD 190 F | _ Disquette n° 2comprend CPC 3 et 4 
Disquettes - Disquette n° 3 comprend CPC 5 et 6 
O L'Univers du PCW -— Patrick LEON 150F = Disquette n° 4 comprend CPC7et8 
D Communiquez avec Amstrad 250 F ——— | - Disquette n° 5 comprend CPC 9 et 10 
— Disquette n° 6 comprend CPC 11 et 12 
A: TOTAL _____ | - Disquette n° 7 comprend CPC 13 et 14 
— Disquette n° 8 comprend CPC 15 et 16 
B:PORT 10% _______ | _ Disquette n° 9 comprend CPC 17 et 18 
— Disquette n° 10 comprend CPC 19 et 20 
A + B TOTAL GENERAL | _ Disquette n° 11 comprend CPC 21 et 22 


- Disquette n° 12 comprend CPC 23 et 24 


A — Disquette n° 1 HS comprend CPC 1 HS 
. ddr RE — Disquette n° 2HS comprend CPC 2HS 
Lo — Disquette n° 3 HS comprend CPC 3HS 


Attention, n° 1 à 6, 12, 14, 15 et 21 épuisés — Disquette n° 4 HS comprend CPC 4HS 
Disquette n° 5 HS comprend CPC 5 HS 
Ü 8,9,10, 11,13, 16, 17, O abonné 110F 
18, 20, 22, 23, 24, 25 25F © «non abonné 140 F 
O 7, 28 F [ abonnement disquettes (6) 600 F 
D Hors série n° 1 avec cassette 47F Je commande les disquettes n° 


TOTAL GENERAL FRANCO —— 
Port en sus 10 % pour envois par avion 


NOM : Prénom : 


Adresse : 


Code postal : Ville: 


Date : — Signature: 


Merci d'écrire en majuscules. 
Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. Retournez le(s) bulletin(s) ou une photocopie à : Editions SORA- 
COM - La Haie de Pan -— 35170 BRUZ. 
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AVANT. FRENERE 
TOUTES LES 


PHOTOS D'ECRAN 


(| 


16 cm > 


Dares Eos U = 


PRESENTE LE MEUBLE MULTIFONCT 


bronman UE A UITAINE 


Fabricant : COUSIN-MALBRAN 


NOS PRINCIPAUX REVENDEURS 


v 


20260 CALVI Haute Corse 
MICRO 28 - & 95 65 20 05 


33800 BORDEAUX 

100 VIDEO 2000 

& 56 92 91 78 

40600 BISCARROSSE 
GSB Ets CASSAT 

& 58 78 10 80 

47190 AIGUILLON 
MICROMAR - & 53 88 15 81 
47300 VILLENEUVE-LOT 
Ets COUTURIER 

& 53 70 50 76 

64000 PAU - BASE 4 

& 59 83 78 78 


66000 PERPIGNAN 


INFORMATIQUE SERVICE 
#& 68 56 79 31 


76600 LE HAVRE 
M QUATRIEME DIMENSION 
M 2 35 22 59 00 


81100 CASTRES 
ORDINATEL - & 63 35 39 71 


97430 LE TAMPON (ile de la 
Reunion) Bureautique 
Informatique Service 

& 19 262 27 93 15 


BON DE COMMANDE 


A renvoyer à DEIA 

62, cours de l’YSER 

33800 BORDEAUX 
Tél. 56.91.15.81 
Télex. 572421 


[_ ] Je suis revendeur et 
désire connaître vos 
conditions. 


[] Je suis particulier et 
désire recevoir une 
documentation. 


LC] Je commande 
AU PRIX DE 1990 F TTC + port 80F 


Voici mon adresse : 


| __CoLorIS __ [OT ] 
RTS 
PRET Re DRE 
ele er 
[ Pin champs verts [7777 
L__Makorbrun [7777] 


(Détaillez 
votre 
commande 
suivant 
les coloris 
choisis) 


meuble(s) 


Je joins mon chèque à la commande, ainsi je bénéficie 
du port gratuit. 
Je paie en contre remboursement (Frais CR : ajouter 80,00 F) 


